Recuperer du texte dans une fenêtre DOS

Le plus facile est de rediriger la sortie de votre batch dans un fichier
texte et de le lire par la suite.
 
Il y a un post intéressant sur le sujet de Patrick Lapp et je vous le copie
ici (il permet de faire un ping d'un ordinateur) :
 
 
Function PingDos(AdIP As String)
    Dim Commande As String
    Dim Resultat As Long
    Dim Ad_a_tester As String
    Dim Fichier As String
    Dim Ligne As String
    Dim EstOK As Boolean
    Dim t As Long
 
    Fichier = "g:\resultat.txt"
    Ad_a_tester = AdIP
    Commande = "c:\command.com /cping " & Ad_a_tester & " >" & Fichier
 
    Resultat = Shell(Commande, 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
    Open Fichier For Input As #7
    do While Not EOF(7)
       Input #7, Ligne
       If InStr(Ligne, "d'attente de la demande" ) <> 0 Then
          EstOK = False
       End If
    loop
    Close #7
'    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" )
 
 
Cédric