批处理设置计算机名脚本

BEIKING

支持静默参数
1）PCName.bat -time
按当前执行脚本时间设置计算机名：PC-202311081358

2）PCName.bat -rand
按随机字符串设置计算机名：PC-EDLH70GN80R7

3）PCName.bat WinPE
按自定义字符串设置计算机名

1. @echo off
   
2. if /i "%UserName%" == "SYSTEM" (Goto GotAdmin) else (reg query "HKLM\SYSTEM\ControlSet001\Control\MiniNT" 1>nul 2>nul&&Goto GotAdmin)
   
3. :BatchGotAdmin
   
4. Set _Args=%*
   
5. if `%1` neq `` Set "_Args=%_Args:"=""%"
   
6. if exist %WinDir%\System32\fltMC.exe fltMC 1>nul 2>nul||mshta VBScript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c """"%~f0"" %_Args%""",,"runas",1)(Window.Close) 2>nul&&Exit /b
   
7. 
   
8. :GotAdmin
   
9. Pushd "%CD%"&cd /d "%~dp0"
   
10. Set PN=PC-
    
11. for /f "tokens=2*" %%i in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName" /v "ComputerName" 2^>nul') do Set "OName=%%j"
    
12. >"%TEMP%/DateCalculate.vbs" echo dt=date()
    
13. >>"%TEMP%/DateCalculate.vbs" echo tm=time()
    
14. >>"%TEMP%/DateCalculate.vbs" echo s=right(year(dt),4) ^& right("0" ^& month(dt),2) ^& right("0" ^& day(dt),2) ^& right("0" ^& Hour(tm),2) ^& right("0" ^& minute(tm),2)
    
15. >>"%TEMP%/DateCalculate.vbs" echo wscript.echo s
    
16. cscript 1>nul 2>nul&&for /f %%a in ('cscript /nologo "%TEMP%/DateCalculate.vbs"') do Set "TName=%PN%%%a"
    
17. setlocal enabledelayedexpansion
    
18. Set var=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ
    
19. Set id=&for /l %%i in (1,1,12) do (Set /a n=!random!%%36&for %%j in (!n!) do Set id=!id!!var:~%%j,1!)
    
20. endlocal&Set RName=%PN%%id%
    
21. Set NName=%1
    
22. if defined NName Goto ModName
    
23. 
    
24. :ShowName
    
25. Title 计算机名&Color 2f
    
26. MODE 1>nul 2>nul&&MODE con: Cols=45 Lines=12
    
27. echo ★设置计算机名★
    
28. echo ----------------
    
29. if defined OName Call :EchoX "xx::◎保留原名称(" "70::直接 回车" "xx.:) %OName%"
    
30. if defined TName Call :EchoX "xx::◎按时间命名(" "70::输入-time" "xx.:) %TName%"
    
31. if defined RName Call :EchoX "xx::◎随机串命名(" "70::输入-rand" "xx.:) %RName%"
    
32. Call :EchoX "xx::◎更换新名称(" "70::输入新名称后回车" "xx.:)↓"
    
33. echo --------------------------------------------
    
34. Set /p NName=
    
35. if not defined NName Exit /b
    
36. 
    
37. :ModName
    
38. if /i "%NName%" == "-time" Set "NName=%TName%"
    
39. if /i "%NName%" == "-rand" Set "NName=%RName%"
    
40. reg add "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName" /f /v "ComputerName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
41. reg add "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName" /f /v "ComputerName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
42. reg add "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters" /f /v "Hostname" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
43. reg add "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters" /f /v "NV Hostname" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
44. reg add "HKLM\SYSTEM\CurrentControlSet\Services\EventLog\State" /f /v "LastComputerName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
45. reg add "HKLM\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName" /f /v "ComputerName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
46. reg add "HKLM\SYSTEM\ControlSet001\Control\ComputerName\ComputerName" /f /v "ComputerName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
47. reg add "HKLM\SYSTEM\ControlSet001\Services\Tcpip\Parameters" /f /v "Hostname" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
48. reg add "HKLM\SYSTEM\ControlSet001\Services\Tcpip\Parameters" /f /v "NV Hostname" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
49. reg add "HKLM\SYSTEM\ControlSet001\Services\EventLog\State" /f /v "LastComputerName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
50. reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\Fax\DsSpooler" 1>nul 2>nul&&(
    
51.     reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\Fax\DsSpooler" /f /v "uNCName" /t REG_SZ /d "\\%NName%\Fax" 1>nul 2>nul
    
52.     reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\Fax\DsSpooler" /f /v "serverName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
53.     reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\Fax\DsSpooler" /f /v "shortServerName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
54. )
    
55. reg query "HKLM\SOFTWARE\WOW6432Node\Microsoft\Windows NT\CurrentVersion\Print\Printers\Fax\DsSpooler" 1>nul 2>nul&&(
    
56.     reg add "HKLM\SOFTWARE\WOW6432Node\Microsoft\Windows NT\CurrentVersion\Print\Printers\Fax\DsSpooler" /f /v "uNCName" /t REG_SZ /d "\\%NName%\Fax" 1>nul 2>nul
    
57.     reg add "HKLM\SOFTWARE\WOW6432Node\Microsoft\Windows NT\CurrentVersion\Print\Printers\Fax\DsSpooler" /f /v "serverName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
58.     reg add "HKLM\SOFTWARE\WOW6432Node\Microsoft\Windows NT\CurrentVersion\Print\Printers\Fax\DsSpooler" /f /v "shortServerName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
59. )
    
60. reg query "HKLM\SYSTEM\CurrentControlSet\Control\Print\Printers\Fax\DsSpooler" 1>nul 2>nul&&(
    
61.     reg add "HKLM\SYSTEM\CurrentControlSet\Control\Print\Printers\Fax\DsSpooler" /f /v "uNCName" /t REG_SZ /d "\\%NName%\Fax" 1>nul 2>nul
    
62.     reg add "HKLM\SYSTEM\CurrentControlSet\Control\Print\Printers\Fax\DsSpooler" /f /v "serverName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
63.     reg add "HKLM\SYSTEM\CurrentControlSet\Control\Print\Printers\Fax\DsSpooler" /f /v "shortServerName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
64. )
    
65. reg query "HKLM\SYSTEM\ControlSet001\Control\Print\Printers\Fax\DsSpooler" 1>nul 2>nul&&(
    
66.     reg add "HKLM\SYSTEM\ControlSet001\Control\Print\Printers\Fax\DsSpooler" /f /v "uNCName" /t REG_SZ /d "\\%NName%\Fax" 1>nul 2>nul
    
67.     reg add "HKLM\SYSTEM\ControlSet001\Control\Print\Printers\Fax\DsSpooler" /f /v "serverName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
68.     reg add "HKLM\SYSTEM\ControlSet001\Control\Print\Printers\Fax\DsSpooler" /f /v "shortServerName" /t REG_SZ /d "%NName%" 1>nul 2>nul
    
69. )
    
70. Exit /b
    
71. 
    
72. :EchoX :: 显示彩色文字 (不支持半角字符 \ / : * ? " < >|. % ! ~)。
    
73. setlocal enabledelayedexpansion
    
74. Set echox=EchoX.exe&&!echox! 1>nul 2>nul||(Set echox=&mkdir "%TEMP%\EchoX" 2>nul)
    
75. for %%a in (%*) do (
    
76.     Set "param=%%a"&Set "param=!param:"=!"
    
77.     Set "color=!param:~0,2!"&(if not exist %WinDir%\System32\findstr.exe if not defined echox Set "color=xx")
    
78.     Set n=0&(if "!param:~2,2!" == "::" Set n=1)&(if "!param:~2,2!" == ".:" Set n=2)
    
79.     if !n! gtr 0 (
    
80.         if /i "!color!" == "xx" (Set /p="_!param:~4!"<nul) else (Set param=%%~nxa&if defined echox (!echox! -c !color! -n "!param:~4!") else (Pushd "%TEMP%\EchoX" 2>nul&>"!param:~4!",Set /p= <nul&findstr /a:!color! .* "!param:~4!*"&del "!param:~4!"&Popd))
    
81.         if !n! == 2 echo.
    
82.     ) else if defined param Set /p="_!param!"<nul
    
83. )
    
84. endlocal
    
85. Goto :eof

复制代码

ylac

有没有局域网上批量更名

caocaofff

创意挺好的

schdtv

感谢分享软件！

邪恶海盗

我记得32位和64位不一样,XP和瘟7不一样...

LRL123

6666

yc2428

谢谢分享

c5215016

好东西

duhe303

学习一下。。。。。。。。。。

lr

感谢分享软件

yyz2191958

谢谢分享

lotus136

学习了

zwmfyy

谢谢分享

alexxin331

谢谢分享

nathan6498

谢谢分享

11525252

谢谢分享

创新科技2015

谢谢分享

创新科技2015

很给力

zqfeng01

感谢分享

burglar

谢谢分享

zhangzpyc

谢谢分享！

quester.

非常好用，谢谢分享。

xcj138

试试看

danceinwar

谢谢分享

zqfeng01

谢谢分享

zhenghui

这个不错挺好使用的，很方便

fxl0571

谢谢分享，支持

qwe

谢谢分享

无犹启动

谢谢分享