FAIRE UN PING SOUS DOS AVEC VB

Function PingDos(AdIP As String)
    Dim Commande As String
    Dim Resultat As Long
    Dim Ad_a_tester As String
    Dim Handle As Long
    Dim Fichier As String
    Dim Ligne As String
    Dim EstOK As Boolean
    Dim t As Long

    Fichier = App.Path & "resultat.txt"
    Ad_a_tester = AdIP
    Commande = "c:\command.com /cping " & Ad_a_tester & " >" & Fichier

    Resultat = Shell(doCmd, vbMinimizedNoFocus)

    t = Timer
    Do
        If Timer - t > 5 Then Exit Do
        DoEvents
    Loop
    Do
        DoEvents
        Err = 0
        On Error Resume Next
        If FileLen(Fichier) <> 0 And Err = 0 Then Exit Do
    Loop
    EstOK = True
    Handle = FreeFile
    Open Fichier For Input As #Handle
        While Not EOF(Handle)
            Input #Handle, Ligne
            If InStr(Ligne, "d'attente de la demande") <> 0 Then
                EstOK = False
            End If
        Wend
    Close #Handle
    Kill Fichier
    If EstOK = True Then
        MsgBox (Ad_a_tester & " Trouvé !")
    Else
        MsgBox (Ad_a_tester & "Non trouvé")
    End If
End Function

' Pour l'executer :
PingDos("127,0,0,1")