Shell ("tracert " & ip), vbNormalFocus
Si tu veux traiter les résultats il te suffit de sauvegarder ton affichage dans un fichier et de le lire...
Deux méthodes...
ip = "172.124.87.01"
Set WshShell = WScript.CreateObject("WScript.Shell" )
commande = "tracert " & ip & " >fichier_resultat"
return=wshshell.run(commande,true)
Set objTextFile = objFSO.OpenTextFile("fichier_resultat", 1)
Do While objTextFile.AtEndOfStream <> True
strText = objTextFile.ReadLine
...
Loop
objTextFile.Close
objFSO.DeleteFile(objTextFile)
ou avec exec que je privilégie.
ip = "172.124.87.01"
Set WshShell = WScript.CreateObject("WScript.Shell" )
commande = "tracert " & ip
Set objExecObject = objShell.Exec(commande)
Do While Not objExecObject.StdOut.AtEndOfStream
strText = objExecObject.StdOut.ReadLine()
...
Loop