Enable Num Lock on Startup (VBScript)

' ============================================================
' SetEnableNumlockOnStartup.vbs
'
' Enable Num Lock on Startup.
' Turns Num Lock on by default for every new sign-in.
'
' Usage: cscript SetEnableNumlockOnStartup.vbs
' ============================================================

Option Explicit

Dim objShell
Set objShell = CreateObject("WScript.Shell")

On Error Resume Next
objShell.RegWrite "HKLM\.DEFAULT\Control Panel\Keyboard\InitialKeyboardIndicators", "2", "REG_SZ"

If Err.Number = 0 Then
    WScript.Echo "Enable Num Lock on Startup applied."
Else
    WScript.Echo "Failed to apply tweak (Error " & Err.Number & ": " & Err.Description & ")"
End If
On Error Goto 0