'Put this script in your StartUp folder

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