Ressources:Ping

De Wiki des Responsables Techniques du 85
Aller à : navigation, rechercher

Un script pour enregistrer le résultat d'une commande ping ainsi que les temps d'accès en cas de succès et ainsi surveiller la liaison vers une adresse IP.

Le fichier résultat se trouve au même niveau que le fichier .bat. Exemple d'utilisation nomFichier.bat 192.168.1.10

'Declarations Variables

Dim bPingStatus

Dim strComputer

Dim Arguments

'Test Parametre Entrée

Set Arguments = Wscript.Arguments

If((Arguments.count) = 0) Then

Wscript.Echo "Manque Parametre Adresse IP"

Wscript.quit

Else

strComputer = Arguments(0)

End If

Do While true

	Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

	For Each objSYSService in GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

	Set colItems = objWMIService.ExecQuery("Select * from Win32_PingStatus Where Address = '" & strComputer & "'")

	For Each objItem in colItems

	bPingStatus = objItem.StatusCode

	If bPingStatus = 0 Then

	wScript.Echo Now &"     -     "& strComputer &"     -     SUCCESS" & " temps de reponse :" & objItem.ResponseTime &" ms"

	Else

	wScript.Echo Now &"     -     "& strComputer &"     -     FAIL"

	End if

	Next

	Next

Wscript.Sleep(1000)

Loop