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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 :
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.