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