copy & paste this code into a file called NUMLock on startup.vbs
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Option Explicit
On Error Resume Next

Dim WSHShell, MyBox, p, p1, q1, t, itemtype
Dim jobfunc

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_USERS\.Default\Control Panel\Keyboard\InitialKeyboardIndicators"
p1 = "HKEY_CURRENT_USER\Control Panel\Keyboard\InitialKeyboardIndicators"
itemtype = "REG_DWORD"
q1 = 2


jobfunc = "NumLock will be on at boot up."



WSHShell.RegWrite p, q1
WSHShell.RegWrite p1, q1

t = "Confirmation"
MyBox = MsgBox (jobfunc, 4096, t)
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

__________________
MSI 875P NEO-LSR Mainboard - Intel P4C 3.0Ghz (800Mhz FSB) - 2 x OCZ PC4000 512MB DIMMs - 4 x WD800JB 80GB/8MB Cache (RAID 0+1) - SB Audigy Platinum eX - ATi Radeon 9800 Pro AIW - Sony Trinitron 19" - Windows Server 2003 Enterprise