Ping localhost KO

Bonjour,

j'ai testé une fonction de ping trouvée sur ce forum (et reproduite ci-après). Le ping me renvoie toujours un échec, même en "pingant" localhost. J'ai bien ajouté la référence à la bibliothèque "Windows Script Host Object Model".

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Debug.Print "TestPing : " & TestPing("localhost") Public Function TestPing(sAddress As String) As String Dim oShell As New IWshRuntimeLibrary.WshShell Dim oScriptExec As IWshRuntimeLibrary.WshExec Dim sBuffer As String   Set oScriptExec = oShell.Exec("ping -n 1 -w 0 " & sAddress) sBuffer = oScriptExec.StdOut.ReadAll   TestPing = sBuffer End Function

---

Résultat :

Citation:

---

TestPing :
Envoi d'une requˆte 'ping' sur <ma machine> [::1] avec 32 octets de donn‚esÿ:
PINGÿ: ‚chec de la transmission. D‚faillance g‚n‚rale.

Statistiques Ping pour ::1:
Paquetsÿ: envoy‚s = 1, re‡us = 0, perdus = 1 (perte 100%),

---

Le ping à partir d'une invite de commande Windows fonctionne bien.

Bonjour,

C'est la même commande que tu testes sous ligne de commandes ? :weird:

Je doute qu'avec un timeout à 0 tu obtiennes des réponses positives.

Modifie la valeur de -w ou enlève l'option.

Cordialement,

En effet ! :boulet:

Merci.