Bonjour,
Je sais qu'il y a eu beaucoup de questions sur ce sujet, mais je n'arrive à trouver LA solution.
Voilà mon problème. J'ai 740 adresses IP à scanner en ping. Certaine "bagotte" (c'est pour cela que je n'utilise pas le Win32_PingStatus, car je désire avoir le nombre de paquets perdus)
Ainsi sur Excel j'ai un tableau avec mes adresses IP et le nom de l'équipement. Je fais ainsi un boucle VBA sur chaque ligne.
Voici le code dans ma boucle :
Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec("cmd /c ping -n 5 -w 1000 " & Host)
strPingResults = LCase(objScriptExec.StdOut.ReadAll)
toto = InStr(strPingResults, "perdus =")
'code pour avoir que le "= X" ou X est le nombre de perte
toto = Left(Left(RTrim(Mid(strPingResults, toto + 6)), Len(RTrim(Mid(strPingResults, toto + 6))) - 1), 4)
toto = Trim(toto)
strResult = "Ping OK (perte de paquet" & toto & "/5)"
Ainsi mon problème est qu'il exécute la fenêtre DOS. J'aimerai la masquer afin de pouvoir continuer à travailler sur autre chose. Cela met tout de même 1h pour les 740 adresses.
J'ai ainsi vu le .RUN : objShell.Run("cmd /c ping -n 5 -w 1000 " & Host,0,true)
Seulement je n'arrive à retourner le résultat. J'ai tout essayé (du moins je pense). Ma variable objScriptExec (object) ne fonctionnant pas, je l'ai passé en string. Mais la valeur me retourne 0 avec le .run
Avez-vous une solution? Merci à tous.
Partager