Vbs ping

Signaler
Messages postés
1
Date d'inscription
jeudi 23 juillet 2020
Statut
Membre
Dernière intervention
23 juillet 2020
-
Messages postés
15837
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
19 avril 2021
-
Bonjour,
J'ai le script suivant pour effectuer des ping. Il ne s'arrete jamais. Il tourne en continue.Comment le stopper.
Merci par avance


Dim strComputer(28)
Dim i
Dim i1
Dim Liste(4)

Liste(0) = " Centrale de mesure Etamic BERCEAU"
Liste(1) = " Centrale de mesure Marposs Pivot N"
Liste(2) = " Centrale de mesure Marposs Pivot N"
Liste(3) = " Centrale de mesure Etamic Pivot T1/N"

strComputer(0) = "muie01"
strComputer(1) = "muie02"
strComputer(2) = "muie03"
strComputer(3) = "muie05"

'Ping version Win2000
Set objShell = CreateObject("WScript.Shell")
 for i = 0 To 4
  Set objScriptExec = objShell.Exec( _
   "%COMSPEC% /c ping -n 2 -w 2000 " & strComputer(i))
  strPingResults = LCase(objScriptExec.StdOut.ReadAll)
  If InStr(strPingResults, "perdus = 0") Then
'      msgbox (strComputer(i) & " repond au ping !")
  Else
      Call msgbox (strComputer(i) & " - " &  Liste(i) & " n'a pas repondu au ping!")
  End If
 Next

WScript.Quit

1 réponse

Messages postés
15837
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
19 avril 2021
532
Je ne code pas en vbs, mais je dirais en mettant l’ordre de quitter dans le if