set oShell = WScript.CreateObject("WScript.Shell")
oShell.run "notepad.exe"
WScript.Sleep 5000 'wait 5 secs then do the sendkeys
oShell.sendkeys "Hello USA"