Description :
Ce script VBS permet de tester si un ordinateur est sur le réseau.
Script :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPingedComputers = objWMIService.ExecQuery _
("Select * from Win32_PingStatus Where Address = 'Addresse IP de l'ordinateur'")
For Each objComputer in colPingedComputers
If objComputer.StatusCode = 0 Then
Wscript.Echo "L'ordinateur est sur le réseau"
Else
Wscript.Echo "L'ordinateur n'est pas sur le réseau."
End If
Next
 Proposer un script
|
Notre avis :
Votre avis :
Réactions :
0
Votants :
6
Visites :
13280
|
