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
14878
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
19 octobre 2020
-
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
14878
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
19 octobre 2020
446
Je ne code pas en vbs, mais je dirais en mettant l’ordre de quitter dans le if