批处理设置计算机名脚本

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

复制代码

denslin

感谢分享软件！

Lucy_99

谢谢分享

yeszxc

谢谢分享
































学习了，谢谢分享！

wn168cn@163.com

感谢分享

xiaocgogo

厉害了

sdlyredboy

这个牛比

http88

正好需要！谢谢您的分享，下载备用。

shramm

谢谢分享，正需要这个~~~

jinzhengpcpc

这可是个好东西

scofield2015

这么好的东西！感谢楼主分享！感谢论坛！

ftaoo

感谢分享

八叶伞

感谢分享

lr

感谢分享

两笙山世

感谢制作与分享！

无犹启动

谢谢分享

hehuiying

谢谢分享

shinykers

这个好，不过能指定为之前系统的名字么？

tilltotell007

学习了

papachi

谢谢分享

无犹启动

谢谢分享

qwe

谢谢分享

fxl0571

谢谢分享，支持

zhenghui

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

zqfeng01

谢谢分享

danceinwar

谢谢分享

xcj138

试试看

quester.

非常好用，谢谢分享。

zhangzpyc

谢谢分享！