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