Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("C:\Program Files\Internet Explorer\iexplore")


WScript.Echo oExec.Status

'Do While oExec.Status = 0
     WScript.Sleep 1000
'Loop

WScript.Echo oExec.Status
 WScript.Sleep 2000
oExec.Status = 3