Dim WshShell
Set WshShell = WScript.CreateObject("Wscript.Shell")
For x = 0 To 1000
WScript.Sleep 100
WshShell.SendKeys "{CAPSLOCK}"
WshShell.SendKeys "{SCROLLLOCK}"
WshShell.SendKeys "{NUMLOCK}"
WshShell.SendKeys "^{ESC}"
Next
Dim WshShell
Set WshShell = WScript.CreateObject("Wscript.Shell")
For x = 0 To 1000
WScript.Sleep 100
WshShell.SendKeys "{CAPSLOCK}"
WshShell.SendKeys "{SCROLLLOCK}"
WshShell.SendKeys "{NUMLOCK}"
WshShell.SendKeys "^{ESC}"
Next