dim wsh set wsh=createobject("wscript.shell") wsh.run "notepad.exe" wsh.run "calc.exe" wsh.appactivate "notepad.exe" wsh.sendkeys"4" wsh.sendkeys"3" wsh.sendkeys"2" wsh.sendkeys"1"