Historique dans un fichier texte
Bonjour,
J'ai un petit problème tout simple :)
Chaque jour, j'execute un script qui fait un ping sur une liste de machine (toto, titi et tata) et qui ecrit le résultat OK ou NOK dans un fichier texte. Le but est de faire un historique sur 7 jours en incrémentant le fichier à chaque fois.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Set objFile = objFSO.OpenTextFile("Liste_Machines.txt", ForReading, True)
Set objRes = objFSO.OpenTextFile("Histo_ping.txt", ForAppending,True)
Do While objFile.AtEndOfStream <> True
Machine = objFile.ReadLine
'objRes.WriteLine (Machine)
Set WSHShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("ping -n 1 -w 200 " & Machine)
PingResult = LCase(WshExec.StdOut.ReadAll)
wscript.echo PingResult
If InStr(PingResult, "octets=") Then
'Ping OK
objRes.WriteLine (Machine & " OK")
Else
'Ping NOK
objRes.WriteLine (Machine & " NOK")
End If
Loop |
Jusque la rien de compliqué ... ca enregistre les infos dans mon fichier texte de la facon suivante :
Citation:
toto OK
tata NOK
titi NOK
toto OK
tata NOK
titi NOK
Savez vous comment faire pour effecteur un enregistrement un ligne ?
Pour que chaque jour il incrémente avec la nouvelle valeur pour que ca donne :
--> nouveau jour
toto OK --> OK --> NOK
tata NOK --> NOK --> OK
titi NOK --> NOK --> OK
Si vous avez une idée je suis preneur...
Sinon je vais parser mon fichier en colonne et spliter :)
Merci d'avance.