Option Explicit Dim WSHShell, ObjExec, PIDMonExe Dim vSystemRoot Dim Commande, UneLigneDeResultat Redim MonTableauDynamiquePourResultat(0) Set WSHShell = CreateObject("WScript.Shell") vSystemRoot = WSHShell.ExpandEnvironmentStrings("%SystemRoot%") Wscript.echo "vSystemRoot : " & vSystemRoot 'Commande = vSystemRoot & "\System32\" & "unexe.exe" Commande = "cmd.exe /C ""dir c:\""" Set ObjExec = WSHShell.Exec(Commande) PIDMonExe = ObjExec.ProcessID Wscript.echo "PID de l'exe : " & PIDMonExe Do While Not ObjExec.StdOut.AtEndOfStream 'On récupère la ligne UneLigneDeResultat = ObjExec.StdOut.ReadLine() Wscript.echo UneLigneDeResultat 'LignesTableauResultat = LignesTableauResultat & UneLigneDeResultat & CHR(1) 'Call ObjExec.Terminate() 'WScript.Sleep 1000 'Attente de 1 seconde 'If Len(LignesTableauResultat) > 0 Then 'LignesTableauResultat = Left(LignesTableauResultat, (Len(LignesTableauResultat) - Len(CHR(1)))) 'End If 'Wscript.echo "Code de sortie : " & ObjExec.ExitCode 'MonTableauDynamiquePourResultat = Split(LignesTableauResultat, CHR(1)) Loop 'On attend que le programme soit terminé 'Do While ObjExec.Status = 0 'WScript.Sleep 1000 'Attente de 1 seconde 'Loop Wscript.echo "Exe terminé" Set ObjExec = Nothing Set WSHShell = Nothing