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.
Jusque la rien de compliqué ... ca enregistre les infos dans mon fichier texte de la facon suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Savez vous comment faire pour effecteur un enregistrement un ligne ?toto OK
tata NOK
titi NOK
toto OK
tata NOK
titi NOK
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.
Partager