VisualBasic Warten bis der nächste Befehl ausgeführt wird

[oklop]

Hallo,

Ich kenne mich nicht mit VB aus deswege bitte ich euch um Hilfe. Ich habe hier ein Script was 2 Programme ausführt und eins beendet wenn das erste Programm manuell beendet wurde. Ich möchte jetzt aber das wenn ich das erste Programm manuell beende sich das zweite erst nach 10 Sekunden beendet.

Hier das aktuelle Script:

set shell=createobject("wscript.shell")
set pid=shell.exec("Programm1.exe")
set pid2=shell.exec("Programm2.exe")
while pid.status=0
	wscript.sleep 1000
wend
if pid2.status=0 then pid2.terminate

 

[Mextli]

set shell=createobject("wscript.shell")
set pid=shell.exec("Programm1.exe")
set pid2=shell.exec("Programm2.exe")
while pid.status=0
	wscript.sleep 1000
wend
wscript.sleep 10000
if pid2.status=0 then pid2.terminate

^probier mal aus