27 Sep 2010
Archivez vos fichiers Logs via script VBS
Il arrive régulièrement que nous ayons besoin d’archiver et de dater des fichiers logs de façon a pouvoir les retrouver simplement. Pour cela, le petit script VBS ci-dessous vous facilitera les choses. Comment ?
- Placez ce script VBS sur un serveur ou sur une machine quelconque
- Créez une tache planifiée exécutant ce script aux heures d’archivage souhaitées. (configurez cette tache avec un compte ayant les permissions appropriées.)
- Analysez ensuite vos logs archivés et datés.
Le script :
Please follow and like us:
About Author
Pierre SALVY
Fondateur du site ancien Microsoft Most Valuable Professional (MVP), multi certifié sur les technologies Microsoft Poste de travail et Serveur, Pierre Travaille au quotidien sur les des projets d'avant vente postes de travail et sécurité. Les articles publiés sont donc directement en lien avec le terrain !
Tu pourrais même lire la date de dernière modification de ton fichier pour être plus proche de la réalité, et, si tu en as le courage, utiliser la norme ISO pour formuler la date, ce qui a l’avantage de ranger directement tes archives dans le bon ordre (en fonction des systèmes et des conf régionales, ça peut vite être le bazarre):
Function FileLastModified(iFile)
Dim fso, f, s, d, lastModifiedDate
Dim DD,MM,YYYY,hh,min,ss
Set fso = CreateObject(« Scripting.FileSystemObject »)
Set f = fso.GetFile(iFile)
d =f.DateLastModified
DD = « » & Day(d)
MM = « » & Month(d)
YYYY = « » & Year(d)
hh = « » & Hour(d)
min = « » & Minute(d)
ss = « » & Second(d)
lastModifiedDate = YYYY & « – » & MM & « – » & DD & « T » & hh & « : » & min & « : » & ss
FileLastModified = lastModifiedDate
End function
DateNow = FileLastModified(« \\server\c$\WINDOWS\Cluster\cluster.log »)
objFSO.CopyFile(…)