Полезные CMD файлы

@echo off
cd /d "%~dp0"
If Exist "%~dp0BCD" del /f /q "%~dp0BCD"
for %%I in (*.wim) do call :creat %%~nI %%~nxI
del /q /f /ah "%~dp0*.log" 2>nul 1>&2
Goto eof
:creat
set BCD=bcdedit.exe /store "%~dp0BCD"
If DEFINED %1 goto eof
If NoT Exist "%~dp0BCD" (bcdedit /createstore "%~dp0BCD" 2>nul 1>&2
for /f "tokens=2 delims={}" %%a in ('%BCD% /create {bootmgr} /d "Windows Boot Manager"') do (
      %BCD% /set {%%a} inherit {globalsettings} 2>nul 1>&2
      %BCD% /set {%%a} locale ru_RU 2>nul 1>&2
      %BCD% /set {%%a} PrereleaseSignatures yes 2>nul 1>&2
      %BCD% /set {%%a} nointegritychecks yes 2>nul 1>&2
      %BCD% /set {%%a} loadoptions DDISABLE_INTEGRITY_CHECKS 2>nul 1>&2
      %BCD% /set {%%a} fontpath \_WIM\BOOT\Fonts 2>nul 1>&2
      %BCD% /set {%%a} Timeout 30 2>nul 1>&2
      %BCD% /set {%%a} DisplayOrder {current} 2>nul 1>&2
    )
If Exist "%~dp0BOOT\memtest.exe" (
for /f "tokens=2 delims={}" %%i in ('%BCD% /create {memdiag} /d "Диагностика памяти"') do (
    %BCD% /set {%%i} Device boot 2>nul 1>&2
    %BCD% /set {%%i} Path \_WIM\BOOT\memtest.exe 2>nul 1>&2
    %BCD% /set {%%i} inherit {globalsettings} 2>nul 1>&2
    %BCD% /set {%%i} nointegritychecks yes 2>nul 1>&2
    %BCD% /set {%%i} BadMemoryAccess yes 2>nul 1>&2
    %BCD% /set {%%i} loadoptions DDISABLE_INTEGRITY_CHECKS 2>nul 1>&2
    %BCD% /set {bootmgr} ToolsDisplayOrder {memdiag} 2>nul 1>&2
  )
)
for /f "tokens=2 delims={}" %%j in ('%BCD% /create {ramdiskoptions}') do (
    %BCD% /set {%%j} ramdisksdidevice Boot 2>nul 1>&2
    %BCD% /set {%%j} ramdisksdipath \_WIM\BOOT\boot.sdi 2>nul 1>&2
)
for /f "tokens=2 delims={}" %%k in ('%BCD% /create {bootloadersettings}') do (
    %BCD% /set {%%k} fontpath \_WIM\BOOT\Fonts 2>nul 1>&2
    %BCD% /set {%%k} inherit {globalsettings} 2>nul 1>&2
)
)
for /f "tokens=2 delims={}" %%b in ('%BCD% /create /d ">>> %1" /application osloader') do (
     %BCD% /set {%%b} osdevice ramdisk=[boot]\_WIM\%2,{ramdiskoptions} 2>nul 1>&2
     %BCD% /set {%%b} inherit {globalsettings} 2>nul 1>&2
     %BCD% /set {%%b} locale ru-RU 2>nul 1>&2
     %BCD% /set {%%b} nointegritychecks yes 2>nul 1>&2
     %BCD% /set {%%b} testsigning yes 2>nul 1>&2
     %BCD% /set {%%b} bootmenupolicy legacy 2>nul 1>&2
     %BCD% /set {%%b} loadoptions DDISABLE_INTEGRITY_CHECKS 2>nul 1>&2
     %BCD% /set {%%b} detecthal yes 2>nul 1>&2
     %BCD% /set {%%b} winpe yes 2>nul 1>&2
     %BCD% /set {%%b} path "\Windows\system32\boot\winload.exe" 2>nul 1>&2
     %BCD% /set {%%b} device ramdisk=[boot]\_WIM\%2,{ramdiskoptions} 2>nul 1>&2
     %BCD% /set {%%b} systemroot "\Windows" 2>nul 1>&2
     %BCD% /displayorder {%%b} /addlast 2>nul 1>&2
     %BCD% /set {%%b} nx OptIn 2>nul 1>&2
)
exit /b

@Echo off
for /f "tokens=3" %%a in (
'2^>nul reg query "HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage" /v ACP'
) do >nul 2>&1 chcp %%a
cd /d %~dp0
@(mshta "javascript:var s=clipboardData.getData('text');if(s)new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(s);close();"& echo.)>>"out.txt"
for /f "tokens=1 delims=" %%a in (out.txt) do set "f=%%a"
del /q /f "out.txt"
set "reg=%f:~-3%"
If Not Exist "%APPDATA%\Repozitory" md "%APPDATA%\Repozitory"
rem Создание резервной копии прав на раздел
SetACL.exe -on "%f%" -ignoreerr -ot reg -actn list -lst "w:o,d,s,g;f:sddl" -bckp "%APPDATA%\Repozitory\%reg:\=_%_quick_access_acl.bkp" -rec cont_obj
rem Смена владельца раздела
rem Получение прав полного доступа для текущего пользователя
SetACL.exe -on "%f%" -ignoreerr -ot reg -actn setowner -ownr "n:S-1-5-32-544" -actn ace -ace "n:S-1-5-32-545;p:full" -ace "n:S-1-5-18;p:full" -rec cont_obj -actn clear -clr "dacl,sacl" -actn rstchldrn -rst "dacl,sacl" |find /i "SetACL finished successfully."
If %errorlevel% LSS 1 (
%windir%\system32\cAu3.exe "MsgBox('64','Внимание!','Полными владельцами:' & @CRLF & '%f%' & @CRLF & 'установлены:  Администраторы / Пользователи / System',10)"
)
Exit

@Echo off
for /f "tokens=3" %%a in (
'2^>nul reg query "HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage" /v ACP'
) do >nul 2>&1 chcp %%a
cd /d "%~dp0"
@(mshta "javascript:var s=clipboardData.getData('text');if(s)new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(s);close();"& echo.)>>"out.txt"
for /f "tokens=1 delims=" %%a in (out.txt) do set "f=%%a"
del /q /f "out.txt"
set "reg=%f:~-3%"
If Exist "%APPDATA%\Repozitory\%reg:\=_%_quick_access_acl.bkp" (
rem Восстановление владельца и прав из резервной копии
SetACL.exe -on "%f%" -ignoreerr -ot reg -actn restore -bckp "%APPDATA%\Repozitory\%reg:\=_%_quick_access_acl.bkp" -rec cont_obj -silent
SetACL.exe -on "%f%" -ot reg -actn setprot -op dacl:np -silent
SetACL.exe -on "%f%" -ot reg -actn clear -clr dacl,sacl -silent
If %errorlevel% LSS 1 (
%windir%\system32\cAu3.exe "MsgBox('64','Внимание!','Права на куст:' & @CRLF & '%f%' & @CRLF & 'Восстановлены!',10)"
del /q /f "%APPDATA%\Repozitory\%reg:\=_%_quick_access_acl.bkp"
)
)
Exit /B

Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\Directory\Background\shell\reg_owner]
"SubCommands"="reg_owner_act;reg_owner_rest"
"MUIVerb"="Права ветки реестра"
"Icon"="Regedit.exe,-0"
"Position"="1"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\reg_owner_act]
@="Смена владельца раздела"
"HasLUAShield"=""
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\reg_owner_act\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd\",\"/c C:\\Windows\\System32\\reg_acces.bat\",\"\",\"runas\",0))"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\reg_owner_rest]
@="Восстановление владельца и прав из резервной копии"
"HasLUAShield"=""
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\reg_owner_rest\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd\",\"/c C:\\Windows\\System32\\Restore_reg_acces.bat\",\"\",\"runas\",0))"