Интеграция программ в boot.wim

@Echo off
cd /d %~dp0
setlocal enabledelayedexpansion
Set FindKey=%~1
Set param=%~2
Set Maikey=%~1
HiveUnload /HKLM /Target:ALL
set "arch=x64"
if /i %PROCESSOR_ARCHITECTURE%==x86 if not defined PROCESSOR_ARCHITEW6432 set "arch=x86"
set "imagex=..\..\..\Binary\%arch%\wimlib-imagex.exe"
set "ConX=..\..\..\Binary\%arch%\ConX.exe"
set "Autoit=..\..\..\Binary\Files\%arch%\cAu3.exe"
if not exist *.wim goto :err
for %%b in ("*.wim") do (
..\wiminfo.exe -wim:"%%b" -ini:%~dp0wim.txt
for /f "delims=" %%a in ('%Autoit% "IniRead('wim.txt','Attributes','ImageCount','')"') do set "ind=%%a"
for /f "delims=" %%l in ('%Autoit% "IniRead('wim.txt','!ind!','FLAGS','')"') do set "PEdit=%%l"
for /f "tokens=3" %%a in ('%imagex% info "%%b" ^| find /i "Major Version:"') do (
set Wver=%%a
for /f "tokens=2" %%i in ('%imagex% info "%%b" ^| find /i "Build:" ^| find /V "Service Pack Build:"') do (
if %%i GEQ 22000 set Wver=11
IF NOT Exist "EditReg\!Wver!\%%i" md "EditReg\!Wver!\%%i"
%imagex% extract %%b !ind! Windows\System32\Config --dest-dir=EditReg\!Wver!\%%i --no-acls
call :cop %%i
rd /s /q Install.hives\!Wver!\!bild!\Config\Journal Install.hives\!Wver!\!bild!\Config\RegBack Install.hives\!Wver!\!bild!\Config\systemprofile Install.hives\!Wver!\!bild!\Config\TxR
If DEFINED FindKey call :key
  )
)
)
::rd /s /q Install.hives\.
pause
exit
:key
If /i "%Maikey:~0,6%" equ "System" set "loadkey=System"
If /i "%Maikey:~0,7%" equ "DEFAULT" set "loadkey=DEFAULT"
If /i "%Maikey:~0,7%" equ "DRIVERS" set "loadkey=DRIVERS"
If /i "%Maikey:~0,8%" equ "SOFTWARE" set "loadkey=SOFTWARE"
set "PrefixNew=tmp_"
set "PrefixOrg=%PrefixNew:tmp_=Src_%"
If "%PrefixOrg:~0,4%" neq "Src_" Goto :EOF
del /s /q /f /ah Install.hives\*.* >nul 2>nul
del /s /q /f /ah EditReg\*.* >nul 2>nul
If not Exist "Install.hives\!Wver!\!bild!" exit /b
call :loadhives Install.hives %PrefixOrg% %loadkey%
call :loadhives EditReg  %PrefixNew% %loadkey%
If "%FindKey%" neq "" call :CopyRegKey %loadkey% "%FindKey%" "%param%"
del /s /q /f /ah Install.hives\*.* >nul 2>nul
del /s /q /f /ah EditReg\*.* >nul 2>nul
HiveUnload /HKLM /Target:ALL
ru.exe -accepteula -h "EditReg\!Wver!\!bild!\Config\%loadkey%"
::rd /s /q EditReg\.
call :UpWim
exit /b
:loadhives
for /f "delims=" %%a in ('2^>nul dir /s /b /a:-d /a:-h %1\!Wver!\!bild!\Config\%3') do (
if "%3"=="" (call set cust=%%~na) else (call set cust=%3)
REG LOAD "HKEY_LOCAL_MACHINE\%2!cust!" "%1\!Wver!\!bild!\Config\%%~na"
)
call ACLRegKey %2!cust!
exit /b
:CopyRegKey
if "%~2" equ "" Goto :EOF
call :AddReg%loadkey% "%FindKey%" "%param%"
exit /b
:AddRegDEFAULT
if "%~1" neq "" Set CopyKey=%~1
if "%~1" equ "" Goto :EOF
::call ACLRegKey "%PrefixNew%%CopyKey%"
call CopyRegKey.cmd "%PrefixNew%%CopyKey%" "%~2"
exit /b
:AddRegSOFTWARE
if "%~1" neq "" Set CopyKey=%~1
if "%~1" equ "" Goto :EOF
::call ACLRegKey "%PrefixNew%%CopyKey%"
call CopyRegKey.cmd "%PrefixNew%%CopyKey%" "%~2"
If !Uver!==11 (
Reg.exe add "HKEY_LOCAL_MACHINE\tmp_SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion" /v "ProductName" /t REG_SZ /d "Windows 11 Enterprise" /f
)
exit /b
:AddRegDRIVERS
if "%~1" neq "" Set CopyKey=%~1
if "%~1" equ "" Goto :EOF
::call ACLRegKey "%PrefixNew%%CopyKey%"
call CopyRegKey.cmd "%PrefixNew%%CopyKey%" "%~2"
exit /b
:AddRegSystem
if "%~1" neq "" Set CopyKey=%~1
if "%~1" equ "" Goto :EOF
::call ACLRegKey "%PrefixNew%%CopyKey%"
call CopyRegKey.cmd "%PrefixNew%%CopyKey%" "%~2"
::Reg.exe add "HKEY_LOCAL_MACHINE\tmp_SYSTEM\ControlSet001\Services\W32Time" /v "ObjectName" /t REG_SZ /d "LocalSystem" /f
exit /b
:cop
echo.
echo Windows %Wver% Service Pack Build:%1
echo.
set bild=%1
for %%b in (..\..\doner\!Wver!_install.wim  ..\..\doner\install!Wver!.wim) do (
..\wiminfo.exe -wim:"%%b" -ini:%~dp0wim.txt
for /f "delims=" %%a in ('%Autoit% "IniRead('wim.txt','Attributes','ImageCount','')"') do (
for /l %%$ in (1,1,%%a) do (
for /f "delims=" %%l in ('%Autoit% "IniRead('wim.txt','%%$','EDITIONID','')"') do (
echo %%l ^>^> !PEdit!
if "%%l"=="!PEdit!" set "index=%%a"
  )
)
)
echo %%b
if "!index!"=="" goto :eof
for /f "tokens=3" %%a in ('%imagex% info "%%b" !index! ^| find /i "Major Version:"') do (
for /f "tokens=2" %%i in ('%imagex% info "%%b" !index! ^| find /i "Build:" ^| find /V "Service Pack Build:"') do (
set Uver=%%a&if "%%i" GEQ "22000" set Uver=11
If %Wver%==!Uver! (
IF NOT Exist "Install.hives\!Wver!\!bild!" md "Install.hives\!Wver!\!bild!"
%imagex% extract "%%b" !index! Windows\System32\Config --dest-dir=Install.hives\!Uver!\!bild! --no-acls
   )
  )
)
)
exit /b
:UpWim
::echo !bild!
for %%b in ("*.wim") do (
..\wiminfo.exe -wim:"%%b" -ini:%~dp0wim.txt
for /f "delims=" %%a in ('%Autoit% "IniRead('wim.txt','Attributes','ImageCount','')"') do set "ind=%%a"
for /f "delims=" %%l in ('%Autoit% "IniRead('wim.txt','!ind!','FLAGS','')"') do set "PEdit=%%l"
for /f "tokens=3" %%a in ('%imagex% info "%%b" ^| find /i "Major Version:"') do (
for /f "tokens=2" %%i in ('%imagex% info "%%b" ^| find /i "Build:" ^| find /V "Service Pack Build:"') do (
set Uver=%%a&if "%%i" GEQ "22000" set Uver=11
If %%i==!bild! If %Wver%==!Uver! (
if Exist Install.hives\!Wver!\!bild! (
%imagex% update "%%b" !ind! --rebuild --command="add EditReg\!Wver!\!bild!\config Windows\System32\config"
    )
   )
  )
)
)
exit /b
:_Info
Regload System\ControlSet001\Services\TrustedInstaller Security
Regload Software\Microsoft\Windows\CurrentVersion\SideBySide\Winners x86_microsoft.vc90.crt_*
Regload Software\Microsoft\Windows\CurrentVersion\SideBySide\Winners x86_microsoft.vc80.crt_*
Regload SYSTEM\ControlSet001\Services\W32Time
Regload SYSTEM\ControlSet001\Services\TrustedInstaller Security
Regload SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion
Regload SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ControlPanel\NameSpace\{E2E7934B-DCE5-43C4-9576-7FE4F75E7480}
HiveUnload /HKLM /Target:ALL
:err
echo File no found^^^!
pause
exit