WScript.Sleep 1000
shellobj.SendKeys "{NUMLOCK}"
WScript.Sleep 300
shellobj.SendKeys "{CAPSLOCK}"
WScript.Sleep 300
shellobj.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
shellobj.SendKeys "{SCROLLLOCK}"
shellobj.SendKeys "{CAPSLOCK}"
shellobj.SendKeys "{NUMLOCK}"