'xp_numlock_on.vbs - Sets Numlock to on at system boot.
'© Doug Knox - 10/09/2001

Option Explicit
On Error Resume Next

'Declare variables
Dim WSHShell, MyBox, p, p1, q1, t, itemtype
Dim jobfunc

'Set the Windows Script Host Shell and assign values to variables
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

'Describe the funtion of the script for a dialog box

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

'This section writes the correct values to the Registry

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

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