Posez votre question Signaler

VBScript verifier etat peripherique avec ping

michoc0 1Messages postés 9 juillet 2008Date d'inscription - Dernière réponse le 1 août 2008 à 16:05
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
Lire la suite 

VBScript verifier etat peripherique avec ping »

1 réponses
Réponse
+1
moins plus
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à! ;)
Ajouter un commentaire
Ce document intitulé « VBScript verifier etat peripherique avec ping » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?