防止局域网克隆系统电脑重名的一键修改计算机名的批处理代码.bat

将以下代码保存到记事本，然后另存为 计算机重命名.bat 文件，
文件类型选择所有文件，编码选择：ANSI格式，
然后右键以管理员身份运行，即可实现电脑计算机名自动改名并自动重启生效，
这样就能有效防止克隆系统的重名无法找到指定电脑的问题。

@echo off&setlocal enabledelayedexpansion
%1(start /min cmd.exe /c %0 :&exit)
set hour=%time: =%
set hour=%hour:~0,2%
set dts=%date:_5,2%%date:8,2%%hour%%time:~3,2%
set "dts=!dts:0=!"&set "dts=!dts:4=!"
:retry_rand
set /a rand=%random%%%90+10
echo %rand% | findstr "[4]" >nul && goto retry_rand
set nam=YS!dts!%rand%
reg add "HKLM\Software\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\SessionData\1" /v LoggedOnSAMUser /t reg_sz /d "!nam!\Administrator" /f
reg add "HKLM\Software\Microsoft\Windows\CurrentVersion\Authentication\LogonUI" /v LastLoggedOnSAMUser /t reg_sz /d "!nam!\" /f
reg add "HKLM\System\ControlSet001\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d "!nam!" /f
reg add "HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName" /v ComputerName /t reg_sz /d "!nam!" /f
reg add "HKLM\Software\Microsoft\Windows\CurrentVersion\Reliability" /v LastComputerName /t reg_sz /d "!nam!" /f
reg add "HKLM\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d "!nam!" /f
reg add "HKLM\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d "!nam!" /f
reg add "HKLM\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d "!nam!" /f
reg add "HKLM\System\ControlSet001\Control\ComputerName\ComputerName" /v ComputerName /t reg_sz /d "!nam!" /f
reg add "HKLM\System\ControlSet002\Control\ComputerName\ComputerName" /v ComputerName /t reg_sz /d "!nam!" /f
reg add "HKCU\Software\Microsoft\Windows Media\WMSDK\General" /v ComputerName /t reg_sz /d "!nam!" /f
reg add "HKCU\Volatile Environment" /v LOGONSERVER /t reg_sz /d "\\!nam!" /f
reg add "HKCU\Volatile Environment" /v USERDOMAIN /t reg_sz /d "!nam!" /f
shutdown -r -f -t 0
del /s /q %0

以上为完整代码，感谢关注。