Fichier batch pour démarrage windows 7 avec le clavier numérique

@echo off
:: On execute les commandes en administateur 

:-------------------------------------
REM  -->  Verification des permissions
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"

REM --> Erreur vous ne possedez pas les droits admin
if '%errorlevel%' NEQ '0' (
    echo Verification des privileges administrateur
    goto UACPrompt
) else ( goto gotAdmin )

:UACPrompt
    echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
    set params = %*:"="
    echo UAC.ShellExecute "%~s0", "%params%", "", "runas", 1 >> "%temp%\getadmin.vbs"

    "%temp%\getadmin.vbs"
    exit /B

:gotAdmin
    if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
    pushd "%CD%"
    CD /D "%~dp0"
:--------------------------------------
for /f "usebackq" %%f in (
	`mshta "javascript:new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(new ActiveXObject('WScript.Shell').PopUp('Voulez vous démarrer avec le clavier numérique activé?',0,'Activer/Désactiver le clavier numérique',35));close();"`
		) do (
			if "%%f"=="6" (
				reg add "HKEY_USERS\.DEFAULT\Control Panel\Keyboard"  /v InitialKeyboardIndicators /t REG_SZ /d 2 /f
				rem YES
			) else if "%%f"=="7" (
				reg add "HKEY_USERS\.DEFAULT\Control Panel\Keyboard"  /v InitialKeyboardIndicators /t REG_SZ /d 1 /f
				rem NO
				exit
			) else (
				exit
			)
		)