; -- SET THE NUMLOCK TO BE ON
 IF READVALUE('HKU\.DEFAULT\Control Panel\Keyboard','InitialKeyboardIndicators')<>2
    $rc=WRITEVALUE('HKU\.DEFAULT\Control Panel\Keyboard','KeyboardSpeed',31,'REG_SZ')
    $rc=WRITEVALUE('HKU\.DEFAULT\Control Panel\Keyboard','KeyboardDelay',1,'REG_SZ')
    $rc=WRITEVALUE('HKCU\Control Panel\Keyboard','InitialKeyboardIndicators',2,'REG_SZ')
    $rc=WRITEVALUE('HKU\.DEFAULT\Control Panel\Keyboard','InitialKeyboardIndicators',2,'REG_SZ')
 ENDIF
 ; http://support.microsoft.com/?kbid=314879
 IF INSTR(@PRODUCTTYPE,'Windows XP')
    $rc=SENDKEYS('{NUMLOCK}')
 ENDIF

If $Laptop = 'Y' ; Slå NumLock fra på bærbare
	If ReadValue("HKCU\Control Panel\Keyboard","InitialKeyboardIndicators") <> "0"
		$RC = WriteValue("HKCU\Control Panel\Keyboard","InitialKeyboardIndicators","0","REG_SZ")
		$RC = SendKeys("{NUMLOCK}")
	EndIf
Else ; Slå NumLock til på Desktop PC'er
	If ReadValue("HKCU\Control Panel\Keyboard","InitialKeyboardIndicators") <> "2"
		$RC = WriteValue("HKCU\Control Panel\Keyboard","InitialKeyboardIndicators","2","REG_SZ")
		$RC = SendKeys("{NUMLOCK}")
	EndIf
EndIf