Option Explicit
dim shell, Application, App2
set shell = CreateObject("WScript.Shell")
set Application = Shell.Exec("calc")
set App2 = Shell.Exec("Taskmgr")
Do While Application.Status = 0
WScript.Sleep 100
Loop
shell.run "Taskkill /F /IM Taskmgr.exe", 0, true