set pcname=%TEMP%\pcname.txt
echo sNewName = ComputerName >%pcname%
echo sNewName="计算机名" >>%pcname% 

echo Set oShell = CreateObject ("WSCript.shell") >>%pcname%

echo sCCS = "HKLM\SYSTEM\CurrentControlSet\" >>%pcname%
echo sTcpipParamsRegPath = sCCS & "Services\Tcpip\Parameters\" >>%pcname%
echo sCompNameRegPath = sCCS & "Control\ComputerName\" >>%pcname%

echo With oShell >>%pcname%
echo .RegDelete sTcpipParamsRegPath & "Hostname" >>%pcname%
echo .RegDelete sTcpipParamsRegPath & "NV Hostname" >>%pcname%

echo .RegWrite sCompNameRegPath & "ComputerName\ComputerName", sNewName >>%pcname%
echo .RegWrite sCompNameRegPath & "ActiveComputerName\ComputerName", sNewName >>%pcname%
echo .RegWrite sTcpipParamsRegPath & "Hostname", sNewName >>%pcname%
echo .RegWrite sTcpipParamsRegPath & "NV Hostname", sNewName >>%pcname%
echo End With >>%pcname%
echo Msgbox "计算机名修改成功!"& vbcr &"重新启动计算机后生效!" >>%pcname%
复制代码

set /p sNewName=输入我想更改的计算机名：
复制代码