Etat du script: Fonctionnel
Présentation:
Le script en VBS:
'Test et suivi de connectivité IP 'Version 0.1 20090715 by Clockover strComputer = "127.0.0.1" strFreq = "30000" strCheck = "perte 0%" strPathLogs="C:\" strCmd="cmd /c ping.exe " & strComputer & " | find /I " & CHR(34) & strCheck & CHR(34) 'Ouverture d'un fichier de résultat Const ForWriting = 2 Dim fso, file Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.OpenTextFile( strPathLogs & "resultat-ping.txt",8,true) file.write "Lancement de l'application le: " & date & " " & time & vbCr & vbCr 'Boucle infinie i = 0 Do While i <> "1" set WshShell = CreateObject ("Wscript.shell" ) '1 = erreur et 0 = okay bolPing = WshShell.Run(strCmd,2,TRUE) 'Si erreur, on note dans le journal. if bolPing = 1 then file.write date & " " & time & ": Echec du ping" & vbCr end if wscript.sleep(strFreq) Loop
TODO Liste:
Historique:
Page générée en 0.007 secondes