Set WshShell = WScript.CreateObject ("WScript.Shell") WshShell.run "calc.exe" WScript.sleep 1000 WshShell.run "mspaint.exe" WScript.sleep 1000 WshShell.run "cmd.exe" WScript.quit [IntError code]