Set WSHShell = CreateObject("WScript.Shell")
Set MonExe = WSHShell.Exec("notepad") 'Lancement de Notepad
PIDMonExe = MonExe.ProcessID

Wscript.echo "PID de l'exe : " &  PIDMonExe

'On attend que le programme soit terminé
Do While MonExe.Status = 0
	WScript.Sleep 1000 'Attente de 1 seconde
Loop

Wscript.echo "Exe terminé"

Set MonExe = Nothing
Set WSHShell = Nothing