VBScript verifier etat peripherique avec ping
michoc0
Messages postés
4
Statut
Membre
-
xvig64 -
xvig64 -
Bonsoir a tous et merci d'être venu jusqu'a cette page.
j'espere ne pas l'avoir placé n'importe ou ... veuillez m'excuser si c'est le cas...
J'ai un petit probleme technique et je n'arrive pas a trouver la sortie.. même mes recherche sur google ne sont pas productive !
Voila je vous expose mon probleme, j'aimerai via un VBScript pouvoir voir si un peripherique est allumé, ou non tout en envoyant une commande ping dans un invité de commande.
exemple: j'ai un peripherique ayant une id type 192.168.15.1
j'envoi la commande "ping 192.168.15.1" dans un invite de commande, il verrifie en envoyant des paquet si il est allumé ou pas,
puis recuperer la valeur et la mettre dans une variable (dans le VBScript) sous forme de false ou true.. et faire mes conditions.
(je pense que c'est la methode la plus simple)
quelqu'un pourrait me mettre sur la voix
je desespere un peu..
Merci d'avance
j'espere ne pas l'avoir placé n'importe ou ... veuillez m'excuser si c'est le cas...
J'ai un petit probleme technique et je n'arrive pas a trouver la sortie.. même mes recherche sur google ne sont pas productive !
Voila je vous expose mon probleme, j'aimerai via un VBScript pouvoir voir si un peripherique est allumé, ou non tout en envoyant une commande ping dans un invité de commande.
exemple: j'ai un peripherique ayant une id type 192.168.15.1
j'envoi la commande "ping 192.168.15.1" dans un invite de commande, il verrifie en envoyant des paquet si il est allumé ou pas,
puis recuperer la valeur et la mettre dans une variable (dans le VBScript) sous forme de false ou true.. et faire mes conditions.
(je pense que c'est la methode la plus simple)
quelqu'un pourrait me mettre sur la voix
je desespere un peu..
Merci d'avance
A voir également:
- VBScript verifier etat peripherique avec ping
- Verifier compatibilite windows 11 - Guide
- Remettre pc etat usine - Guide
- Périphérique usb non reconnu - Guide
- Gestionnaire de périphérique - Guide
- Port ping ✓ - Forum Réseau
1 réponse
MSDN!... la sortie à ton pb est dans la classe Win32_PingStatus
'ta variable booleenne
Dim bPingStatus
'ta cible
strComputer = "192.168.15.1"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PingStatus Where Address = '" & strComputer & "'")
For Each objItem in colItems
bPingStatus = objItem.StatusCode
Next
WScript.Echo bPingStatus
Voilà! ;)
'ta variable booleenne
Dim bPingStatus
'ta cible
strComputer = "192.168.15.1"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PingStatus Where Address = '" & strComputer & "'")
For Each objItem in colItems
bPingStatus = objItem.StatusCode
Next
WScript.Echo bPingStatus
Voilà! ;)
