Comment puis-je éxecuter un ping sous MS-DOS
Mettez cette fonction dans un Module :
Source / Exemple :
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")
Conclusion :
.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.