Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{ESC}"