Deploy custom keyboard layout (Windows 10)

INSTALL.bat

@echo off
set root=%~1
REM set root="\\ad\DistribApp\scripts\"


REM =============================================
IF NOT DEFINED root set root="."

REM run once
IF EXIST "%SYSTEMROOT%\system32\fr_layout.dll" exit /b

REM install
echo.
echo Please wait...

copy /V "%root%\fr_layout.dll" /B "%SYSTEMROOT%\system32\." /B 1>NUL:
IF %ERRORLEVEL% NEQ 0 exit /b
start "" /WAIT /B "%SYSTEMROOT%\system32\cscript.exe" /Nologo "%root%\reg.vbs"
echo %computername% OK >>"%root%\deployed.txt"

echo.
echo Installed.

layout.xml

<gs:GlobalizationServices xmlns:gs="urn:longhornGlobalizationUnattend">

<gs:UserList>

<!-- CopySettingsToDefaultUserAcct="true" CopySettingsToSystemAcct="true" -->
<gs:User UserID="Current" />

</gs:UserList>

<gs:InputPreferences>

<!-- CUSTOM KEYBOARD, 040c = FRENCH -->

<gs:InputLanguageID Action="add" ID="040c:a000040c" Default="false" />

</gs:InputPreferences>

</gs:GlobalizationServices>

LOGON.bat

@control intl.cpl,, /f:"\\ad\DistribApp\scripts\layout.xml"

reg.vbs

LayoutName = "FR custom"

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.RegWrite "HKLM\SYSTEM\ControlSet001\Control\Keyboard Layouts\a000040c\", ""
objShell.RegWrite "HKLM\SYSTEM\ControlSet001\Control\Keyboard Layouts\a000040c\Layout File", "fr_layout.dll", "REG_SZ"
objShell.RegWrite "HKLM\SYSTEM\ControlSet001\Control\Keyboard Layouts\a000040c\Layout Id", "00c0", "REG_SZ"
objShell.RegWrite "HKLM\SYSTEM\ControlSet001\Control\Keyboard Layouts\a000040c\Layout Display Name", LayoutName, "REG_SZ"
objShell.RegWrite "HKLM\SYSTEM\ControlSet001\Control\Keyboard Layouts\a000040c\Layout Text", LayoutName, "REG_SZ"