Изменение имени компьютера на этапе развёртывания системы из "заливки" образа *.wim

setlocal EnableDelayedExpansion
for /l %%i in (1,1,7) do (
set /a d=!random!*26/32768+65
cmd /c exit !d!
set name=!name!!=exitcodeAscii!
)
set "NewPCNAME=%name%%random%-PC"
wmic computersystem where name="%computername%" call rename name="%NewPCNAME%"

wmic computersystem where name="%computername%" call rename name="%NewPCNAME%"

%SystemRoot%\System32\shutdown.exe -r -t 1 -f

@Echo Off
For /F "tokens=2 Delims==" %%A In ('WMIC Bios Get SerialNumber /Value') Do (
    For /F "Delims=" %%B In ("%%A") Do (
        Call :RenamePC "%%B"
        Call :Ask4Reboot
    )
)
::**********************************************************************
:RenamePC
WMIC ComputerSystem where Name="%ComputerName%" call Rename Name="%~1"
Exit /B
::***********************************************************************
:Ask4Reboot
(
    echo    Set Ws = CreateObject("wscript.shell"^)
    echo    Answ = MsgBox("Вы хотите перезагрузить компьюте сейчас ?"_
    echo ,VbYesNo+VbQuestion,"Имя компьютера изменится после перезагрузки "^)
    echo    If Answ = VbYes then
    echo        Return = Ws.Run("cmd /c shutdown -r -t 60 -c ""Компьютер перезагрузится через 1 минуту."" -f",0,True^)
    echo    Else
    echo        wscript.Quit(1^)
    echo    End If
)>"%tmp%\%~n0.vbs"
Start "" "%tmp%\%~n0.vbs"

start mshta vbscript:Execute("msgbox ""Для завершения работы сделайте Кю!"",0,""Заголовок"":close")