set oShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 5000 'wait 5 secs then do the sendkeys
oShell.sendkeys "1{ENTER}"