Réponse acceptée !
Bonjour à tous
Salut Drikce,
je pense que "bonbone" avait oublié qu'il avait déjà la réponse !
Evidemment, c'est une des multiples possiblilités du ping.
exemple avec shell:
http://www.vbfrance.com/infomsg_COMMANDE-SHELL_869162.aspx#3
Pour la curiosité, exemple ci-dessous, en wmi.
Je vais modifier ce code pour trouver l'IP actuelle du server.
Je suis entrain d'adapter ce code (une demande d'admin au boulot) pour
tester un cmd ping adresse_IP -t. Les admins réseaux feront Ctrl+c pour arrêter le ping
à leur guise et auront un .txt, car nous avons des pings aléatoires entre Fr et pays du Maghreb.
'strComputer = InputBox("saisir adresse IP",,"90.20.94.195")
Set Shell = WScript.CreateObject("WScript.Network")
strComputer = Shell.ComputerName
Counter = 0
On Error Resume Next
While Counter < 26 ' Teste la valeur du compteur.
Counter = Counter + 1
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\")._
ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If objStatus.Statuscode = 0 Then
result = result &vbCr& "essai " & Counter &vbTab& "status= " &vbTab& objStatus.Statuscode &vbTab& "repond au ping !"
else
result = result &vbCr& "essai " & Counter &vbTab& "status= " &vbTab& objStatus.StatusCode &vbTab& "n'a pas repondu au ping!"
End If
Next
Set objPing = Nothing
Wend ' Fin de la boucle While lorsque Counter > 26.
Set Shell = Nothing
MsgBox result,,strComputer
jean-marc