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