'2015 01 19
'VbScript pour lancer un .exe (et uniquement un .exe)
'Lancez ce .vbs de préférence avec cscript.exe //Nologo
'Ainsi la première ligne récupérée sera la effectivement la première générée par lexe qui sera lancé (et pas autre chose comme "Microsoft (R) Windows Script Host Version 5.8")

Dim WSHShell, ObjExec, Commande, PIDMonExe, UneLigneDeResultat, NumeroLigneResultat

Commande = "cmd.exe /C ""dir c:\""" 'Pour l'exemple on va lancer un "dir c:\"

Set WSHShell = CreateObject("WScript.Shell")
Set ObjExec = WSHShell.Exec(Commande) 'Lancement de l'exe

PIDMonExe = ObjExec.ProcessID 'Récupération du PID de l'exe

'Récupération du résultat affiché par l'exe
NumeroLigneResultat = 0
Do While Not ObjExec.StdOut.AtEndOfStream

	NumeroLigneResultat = NumeroLigneResultat + 1
	UneLigneDeResultat = ObjExec.StdOut.ReadLine() 'On récupère une ligne générée par l'exe
	Wscript.echo UneLigneDeResultat 'On affiche cette ligne

Loop

Wscript.echo "Exe terminé"

Set ObjExec = Nothing
Set WSHShell = Nothing