:gethostname
cls
title 初始化：更改计算机名
set /p "cmpy=请键入设备所属的公司名(限制5个字符)："
set /p "usag=请键入设备的用途(限制5个字符)：" 
set "srvnm=adv-%cmpy%-%usag%"
set /p "=该设备将被重命名为：%srvnm%,请确保其不多于15个字符。" <nul & echo,
call:GetStrLen %srvnm%
if %n% gtr 15 goto gethostname

echo 正在更新注册表。
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul 
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f >nul 2>nul 
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %name% /f >nul 2>nul
echo 注册表更新完成。
goto:eof
::获取字符串长度
:GetStrLen
setlocal enabledelayedexpansion
set /a max=8190,min=0
for /l %%a in (1,1,14) do (
    set /a "num=(max+min)/2"
    for /f "delims=" %%b in ("!num!") do (
        if "!str:~%%b!" equ "" (set /a max=num) else set /a min=num
    )
)
if "!str:~%num%!" neq "" set /a num+=1
endlocal & set "%1=%num%"
pause>nul
复制代码

:gethostname
cls
color 3f
title 初始化：更改计算机名
set /p "cmpy=请键入设备所属的公司名(限制5个字符)："
set /p "usag=请键入设备的用途(限制5个字符)：" 
set /a "srvnm=srv-%cmpy%-%usag%"
if "%srvnm:~15%" neq "" (echo,大于15字符.任意键返回重试&&pause>nul&&goto:gethostname) else echo "新设备名为：%srvnm%，重启生效。"

echo 正在更新注册表。
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %srvnm% /f >nul 2>nul 
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %srvnm% /f >nul 2>nul 
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %srvnm% /f >nul 2>nul
echo 注册表更新完成。
goto ActCnf
复制代码

:gethostname
cls
color 3f
title 初始化：更改计算机名
set /p "cmpy=请键入设备所属的公司名(限制5个字符)："
set /p "usag=请键入设备的用途(限制5个字符)：" 
::这里使用了两个变量，因为%srvnm%在做过字符偏移的操作后被赋值为0了。
set "name=adv-%cmpy%-%usag%"
set "srvnm=adv-%cmpy%-%usag%"
if "%srvnm:~15%" neq "" (echo,大于15字符.任意键返回重试&&pause>nul&&goto :gethostname) else echo "新设备名为：%name%，重启生效。"

echo 正在更新注册表。
reg add "HKLM\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul 
reg add "HKLM\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f >nul 2>nul 
reg add "HKLM\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %name% /f >nul 2>nul
echo 注册表更新完成。
pause
复制代码