'Put this script in your StartUp folder
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"