Script to Force Num Lock always on

@ECHO OFF
REM Original script made by PIMP_JUICE_IT on Stack Exchange, with modifications by Andrew Stewart.
TITLE NUMLOCK Lock
SET TempVBSFile=%tmp%\~tmpSendKeysTemp.vbs
:VBSDynamicBuildLoop
SET PauseSeconds=1"
IF EXIST "%TempVBSFile%" GOTO Announce
ECHO No script found. Creating one now...
ECHO Set objWord = CreateObject("Word.Application")              >>"%TempVBSFile%"
ECHO Set WshShell = WScript.CreateObject("WScript.Shell")        >>"%TempVBSFile%"
ECHO Wscript.Sleep %PauseSeconds%000                             >>"%TempVBSFile%"
ECHO.                                                            >>"%TempVBSFile%"
ECHO If objWord.NumLock = 0 Then                                 >>"%TempVBSFile%"
ECHO    WshShell.SendKeys "{NUMLOCK}"                            >>"%TempVBSFile%"
ECHO End If                                                      >>"%TempVBSFile%"
ECHO.                                                            >>"%TempVBSFile%"
ECHO objWord.Quit                                                >>"%TempVBSFile%"
GOTO VBSDynamicBuildLoop
:Announce
ECHO Script found at %TempVBSFile%. Using it.
:VBSScriptRun
CSCRIPT //nologo "%TempVBSFile%"
GOTO VBSScriptRun