set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "%{F4}"