Vbscript ping pour un débutant

Question

Voila je dois faire un ping sur des serveurs 2000, NT et 2003. J'arrive à faire le ping en exécutant le shell grace à:

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("ping srv-bur01")
Do While oExec.Status = 0
     WScript.Sleep 100
Loop
WScript.Echo oExec.Status

J'aimerai savoir si il est possible de récupérer le temps de ce ping. Si oui comment, qu'elle méthode appelé? 

Je vous remercie d'avance merci

xerque · Answer

Salut
La seule facon que je connais est de faire un redirection dans ta commande pour écrire le résultat dans un fichier
ex : ping srv-bur01 > c:	emp\a.txt

J'ai vu aussi qu'on pouvait utiliser un winsock pour faire un ping. C'est peut etre sortire la grosse artillerie mais si ca t'aide. Tu trouveras le code sur ce site.

Il y a peut etre une autre solution plus simple mais je ne suis pas un expert.

bazou30 · Answer

Je te remerci beaucoup mais je viens d'arrivé de résoudre mon problème en fait je récupère le flux de sortie grace au code :

Set oExec = WshShell.Exec("ping "&StrComputer)

Do While oExec.Status = 0
        WScript.Sleep 100
Loop

ResultPing = oExec.stDOut.ReadAll

ResultPing contient les informations sur le ping que j'ai exécuté. Mais ta solution est juste merci quand même

xerque · Answer

En fait c'est moi qui te remercie car je vais faire une petite applie qui récupere des données provenant du DOS au lieu d'utiliser les winsock. ;)

Vbscript ping pour un débutant

3 réponses

Discussions similaires