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 : 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
Jusque la rien de compliqué ... ca enregistre les infos dans mon fichier texte de la facon suivante :


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.