[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
滴血雄鹰

Rank: 2

帖子
94 
积分
139 
技术
0  
捐助
0  
注册时间
2019-1-13 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2019-1-15 13:00 | 只看该作者

[文本处理] 批处理修改计算机名后，如何实现无需重启即可生效？

下面是一段一键修改计算机名(不需要重启电脑)的代码，修改后能不能加入贴子代码中，实现不要重启电脑就能改计算机名？


下面是一段一键修改计算机名(不需要重启电脑)的代码：
  1. :name 

  2. set /p cname=请输入计算机名:

  3. 

  4. echo REGEDIT4 >c:\windows\reg.reg

  5. 

  6. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName] >> c:\windows\reg.reg

  7. 

  8. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName] >> c:\windows\reg.reg 

  9. echo "ComputerName"="%cname%" >> c:\windows\reg.reg

  10. 

  11. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName] >> c:\windows\reg.reg 

  12. echo "ComputerName"="%cname%" >> c:\windows\reg.reg

  13. 

  14. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\ComputerName\ComputerName] >> c:\windows\reg.reg 

  15. echo "ComputerName"="%cname%" >> c:\windows\reg.reg

  16. 

  17. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters] >> c:\windows\reg.reg 

  18. echo "NV Hostname"="%cname%" >> c:\windows\reg.reg 

  19. echo "Hostname"="%cname%" >> c:\windows\reg.reg

  20. 

  21. echo [HKEY_USERS\S-1-5-18\Software\Microsoft\Windows\ShellNoRoam] >> c:\windows\reg.reg 

  22. echo @="%cname%" >> c:\windows\reg.reg

  23. 

  24. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName] >> c:\windows\reg.reg 

  25. echo "ComputerName"="%cname%" >> c:\windows\reg.reg

  26. 

  27. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters] >> c:\windows\reg.reg 

  28. echo "NV Hostname"="%cname%" >> c:\windows\reg.reg 

  29. echo "Hostname"="%cname%" >> c:\windows\reg.reg

  30. 

  31. echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon] >> c:\windows\reg.reg 

  32. echo "DefaultDomainName"="%cname%" >> c:\windows\reg.reg 

  33. echo "AltDefaultDomainName"="%cname%" >> c:\windows\reg.reg

  34. 

  35. regedit /s c:\windows\reg.reg 

  36. cmd
复制代码

原帖：
http://www.bathome.net/thread-38914-1-1.html
下面最终代码，但代码有时有用，有时失效，有没有解决办法？
http://www.bathome.net/redirect. ... 8914&pid=180866
收藏 分享

yhcfsr

Rank: 5Rank: 5

帖子
635 
积分
969 
技术
107  
捐助
0  
注册时间
2017-11-23 
2楼
发表于 2019-1-15 13:34 | 只看该作者
本帖最后由 yhcfsr 于 2019-1-15 13:37 编辑

加入域的计算机可能无法更改.
  1. @echo off

  2. 

  3. set /p name=请输您的计算机名：

  4. reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul

  5. reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f >nul 2>nul

  6. reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %name% /f >nul 2>nul

  7. echo.

  8. echo 修改计算机名完毕

  9. pause&exit
复制代码
QQ 33892006

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
3楼
发表于 2019-1-15 13:37 | 只看该作者 
  1. @echo off

  2. 

  3. ::1.设置环境变量

  4. set MASK=255.255.255.0

  5. set GATEWAY=192.168.31.1

  6. set DNS1=114.114.114.114

  7. set DNS2=114.114.114.110

  8. set WINS=192.168.31.1

  9. set run_log=%temp%\run_log.txt

  10. 

  11. ::2.运行环境检查

  12. echo. >%run_log%

  13. echo. >>%run_log%

  14. echo ======================================>>%run_log%

  15. echo 运行时间 %date% %time% >>%run_log%

  16. echo ======================================>>%run_log%

  17. del %temp%\mac.txt >nul 2>nul

  18. del %temp%\a.txt >nul 2>nul

  19. wmic nic >nul 2>nul

  20. wmic nic >nul 2>nul >%temp%\a.txt && (find /i "MACAddress"  %temp%\a.txt >nul 2>nul || echo ************运行权限不够，请以管理员运行*****************  >>%run_log% && start  %run_log% &&exit)

  21. 

  22. ::3.获取本机所有MAC,地址，格式为 XX-XX-XX-XX-XX-XX

  23. wmic nic get MACAddress >%temp%\name.txt && for /f "skip=1" %%i in ('type %temp%\name.txt') do for /f "tokens=1-6 delims=:" %%I in ("%%i") do echo %%I-%%J-%%K-%%L-%%M-%%N>>%temp%\mac.txt

  24. 

  25. ::4.将获取到的本机MAC地址逐一到本批处理后面的列表去查找，匹配的通常是本地连接的MAC连接，将匹配的MAC地址保存下来。

  26. ::      注1：这种方式可以应对电脑上安装虚拟机，或者机器是win7及以上的系统，会有多个MAC。

  27. ::      注2：至少要有一个匹配MAC，如果找不到任何匹配MAC，则报错退出。这可以避免在没有收集MAC的机器上运行时，错误修改原来的信息。

  28. del %temp%\exist-mac.txt   >nul 2>nul

  29. for /f  %%i in (%temp%\mac.txt) do find /i "%%i" %0 >nul 2>nul && echo %%i>%temp%\exist-mac.txt

  30. if exist %temp%\exist-mac.txt (for /f %%i in (%temp%\exist-mac.txt) do set MAC=%%i) else (echo ************未找到匹配的MAC项，中断批处理执行************  >>%run_log%   &&start %run_log%  &&exit)

  31. 

  32. ::5.获取找到MAC地址对应的网络连接名称，通常是本地连接，

  33. ::      注1：对于一些多网卡环境,如机器装有多块网卡，会生成本地连接 2的名称, 注意：2前面有个空格，

  34. ::      注2：还有一种情况，本地连接的名称被改，在学校机房，干这种事情的人大有人在

  35. for /f "tokens=1-6 delims=-" %%i in ("%MAC%") do set MAC1=%%i:%%j:%%k:%%l:%%m:%%n

  36. wmic nic where MACaddress="%MAC1%" get NetConnectionID >%temp%\mac1.txt && for /f "tokens=* skip=1" %%i in ('type %temp%\mac1.txt') do if NOT "%%i"=="" set NetConnectionID=%%i

  37. :intercept 

  38. if "%NetConnectionID:~-1%"==" " set "NetConnectionID=%NetConnectionID:~0,-1%"&goto intercept

  39. 

  40. ::6.获取预设的计算机名\IP地址\计算机描述信息

  41. for /f "tokens=1-4" %%i in ('more /e +10 %0 ^|find /i "%mac%"') do set name=%%i&& set IP=%%j&&  set desc=%%l

  42. if "%name%"=="" (echo ********************匹配MAC预设计算机信息不存在，本程序将退出********************  >>%run_log%   &&start %run_log%  &&exit) 

  43. if "%ip%"==""   (echo ********************匹配MAC预设IP地址信息不存在，本程序将退出********************  >>%run_log%   &&start %run_log%  &&exit) 

  44. if "%desc%"=="" (echo ********************匹配MAC预设计算机描述信息不存在，本程序将退出******************  >>%run_log%   &&start %run_log%  &&exit) 

  45. for /f "tokens=1-3 skip=2" %%i in ('reg query "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\lanmanserver\parameters" /v srvcomment 2^>nul') do set current_desc1=%%k

  46. for /f "tokens=1-3 skip=2" %%i in ('reg query "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters" /v srvcomment 2^>nul') do set current_desc2=%%k

  47. wmic nicconfig where MACaddress="%MAC1%" get IPaddress>%temp%\a.txt && for /f "skip=1 delims=,{} " %%i in ('type %temp%\a.txt') do set current_ip=%%~i

  48. wmic nicconfig where MACaddress="%MAC1%" get IPSubnet>%temp%\a.txt &&for /f "skip=1 delims=,{} " %%i in ('type %temp%\a.txt') do set IPSubnet=%%~i

  49. wmic nicconfig where MACaddress="%MAC1%" get DefaultIPGateway>%temp%\a.txt &&for /f "skip=1 delims=,{} " %%i in ('type %temp%\a.txt') do set DefaultIPGateway=%%~i

  50. wmic nicconfig where MACaddress="%MAC1%" get DNSServerSearchOrder >%temp%\a.txt  && for /f "tokens=1-8 skip=1 delims=,{} " %%i in ('type %temp%\a.txt') do set current_DNS1=%%~i& set current_DNS2=%%~j& set DNS3=%%~k&  set DNS4=%%~l

  51. wmic nicconfig where MACaddress="%MAC1%" get WINSPrimaryServer>%temp%\a.txt &&for /f "skip=1 delims=,{} " %%i in ('type %temp%\a.txt') do set WINSPrimaryServer=%%i

  52. 

  53. echo. **************************信息汇总********************************

  54. echo  网络连接名称    【%NetConnectionID%】

  55. echo  MAC地址为       【%mac%】

  56. echo  当前IP地址      【%current_ip%】 预设IP地址     【%IP%】 

  57. echo  当前子网掩码    【%IPSubnet%】 预设子网掩码   【%MASK%】 

  58. echo  当前默认网关    【%DefaultIPGateway%】 预设默认网关   【%GATEWAY%】 

  59. echo  当前DNS1        【%current_DNS1%】 预设DNS1       【%DNS1%】 

  60. echo  当前DNS2        【%current_DNS2%】 预设DNS2       【%DNS2%】 

  61. echo  当前WINS服务器  【%WINSPrimaryServer%】 预设WINS服务器 【%WINS%】 

  62. echo.

  63. echo  当前计算机名    【%current_name1%】 预设计算机名   【%name%】           

  64. echo  当前描述        【%current_desc1%】 预设计算机描述 【%desc%】          

  65. echo. *********************************************************************

  66. echo.

  67. 

  68. ::7.执行判断、修改计算机名\IP地址\计算机描述信息

  69. if "%current_desc1%"=="%desc%" (echo 计算机注释1符合要求，跳过修改>>%run_log% ) else (echo 正在修改计算机注释1 && reg add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\lanmanserver\parameters" /v srvcomment /t reg_sz /d %desc% /f >nul 2>nul    && echo 修改计算机注释1成功 >>%run_log% || echo  ********************修改计算机注释1失败 ********************   >>%run_log%)

  70. if "%current_desc2%"=="%desc%" (echo 计算机注释2符合要求，跳过修改>>%run_log%) else (echo 正在修改计算机注释2 && reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters" /v srvcomment /t reg_sz /d %desc% /f >nul 2>nul && echo 修改计算机注释2成功>>%run_log%  || echo  ********************修改计算机注释2失败 ********************  >>%run_log%)

  71. if "%name%"=="%computername%" (

  72.     >>%run_log% echo 计算机名符合要求，跳过修改

  73. ) else (

  74.     echo 正在修改计算机名

  75.     REM wmic computersystem where "name='%computername%'" call rename %name%

  76.     call :ChangeName

  77.     if errorlevel 1 (

  78.         >>%run_log% echo ********************修改计算机名失败 ********************

  79.     ) else (

  80.         >>%run_log%echo 修改计算机名成功

  81.     )

  82. )

  83. if "%current_ip%"=="%IP%" (echo IP地址符合要求，跳过修改>>%run_log%) else (set change_pro=IP地址)

  84. if "%IPSubnet%"=="%MASK%" (echo 子网掩码符合要求，跳过修改>>%run_log%) else (set change_pro=%change_pro%、子网掩码)

  85. if "%DefaultIPGateway%"=="%GATEWAY%" (echo 默认网关地址符合要求，跳过修改>>%run_log%) else (set change_pro=%change_pro%、默认网关)

  86. if "%change_pro%"==""  (echo IP地址\子网掩码\默认网关符合要求，跳过修改>>%run_log%) else   (echo 正在修改%change_pro% &&  netsh interface ip set address "%NetConnectionID%" static %IP% %Mask% %GATEWAY% 1 >nul 2>nul   && echo 修改%change_pro%成功 >>%run_log%   || echo  ********************修改%change_pro%失败 ********************  >>%run_log%)

  87. if "%current_DNS1%"=="%DNS1%" (echo DNS1地址符合要求，跳过修改>>%run_log%) else (echo 正在修改DNS1地址 &&  netsh interface ip set dns "%NetConnectionID%" static %DNS1% register=PRIMARY >nul 2>nul   && echo 修改DNS1地址成功 >>%run_log%   || echo  ********************修改DNS1地址失败 ********************  >>%run_log%)

  88. if "%current_DNS2%"=="%DNS2%" (echo DNS2地址符合要求，跳过修改>>%run_log%) else (echo 正在修改DNS2地址 &&  netsh interface ip add dns "%NetConnectionID%"  %DNS2% index=2 >nul 2>nul   && echo 修改DNS2地址成功 >>%run_log%   || echo  ********************修改DNS2地址失败 ********************  >>%run_log%)

  89. if "%WINSPrimaryServer%"=="%WINS%" (echo WINS地址符合要求，跳过修改>>%run_log%) else (echo 正在修改WINS地址 &&  netsh interface ip set wins "%NetConnectionID%" static %WINS%  >nul 2>nul  && echo 修改WINS地址成功 >>%run_log%   || echo  ********************修改WINS地址失败 ********************  >>%run_log%)

  90. 

  91. 

  92. start %run_log%

  93. goto :eof

  94. 

  95. :ChangeName 

  96. set cname=%name%

  97. 

  98. echo REGEDIT4 >c:\windows\reg.reg

  99. 

  100. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName] >> c:\windows\reg.reg

  101. 

  102. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName] >> c:\windows\reg.reg 

  103. echo "ComputerName"="%cname%" >> c:\windows\reg.reg

  104. 

  105. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName] >> c:\windows\reg.reg 

  106. echo "ComputerName"="%cname%" >> c:\windows\reg.reg

  107. 

  108. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\ComputerName\ComputerName] >> c:\windows\reg.reg 

  109. echo "ComputerName"="%cname%" >> c:\windows\reg.reg

  110. 

  111. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters] >> c:\windows\reg.reg 

  112. echo "NV Hostname"="%cname%" >> c:\windows\reg.reg 

  113. echo "Hostname"="%cname%" >> c:\windows\reg.reg

  114. 

  115. echo [HKEY_USERS\S-1-5-18\Software\Microsoft\Windows\ShellNoRoam] >> c:\windows\reg.reg 

  116. echo @="%cname%" >> c:\windows\reg.reg

  117. 

  118. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName] >> c:\windows\reg.reg 

  119. echo "ComputerName"="%cname%" >> c:\windows\reg.reg

  120. 

  121. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters] >> c:\windows\reg.reg 

  122. echo "NV Hostname"="%cname%" >> c:\windows\reg.reg 

  123. echo "Hostname"="%cname%" >> c:\windows\reg.reg

  124. 

  125. echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon] >> c:\windows\reg.reg 

  126. echo "DefaultDomainName"="%cname%" >> c:\windows\reg.reg 

  127. echo "AltDefaultDomainName"="%cname%" >> c:\windows\reg.reg

  128. 

  129. regedit /s c:\windows\reg.reg 

  130. goto :eof

  131. 

  132. ::以下为预设信息区域

  133. 计算机名        新规划地址        MAC地址        计算机描述

  134. 12F-JF01-A002        192.168.12.102        54-04-a6-66-bd-bd        12楼机房A02

  135. 12F-JF01-A003        192.168.12.103        00-30-67-ba-0c-ac        12楼机房A03

  136. 12F-JF01-A004        192.168.12.104        00-e0-62-0b-1f-6c        12楼机房A04

  137. 12F-JF01-A005        192.168.12.105        bc-ae-c5-5d-65-c0        12楼机房A05

  138. 12F-JF01-A006        192.168.12.106        00-e0-66-02-29-5e        12楼机房A06

  139. 12F-JF01-A007        192.168.12.107        50-e5-49-be-c0-dc        12楼机房A07

  140. 12F-JF01-A008        192.168.12.108        00-e0-66-0d-71-d9        12楼机房A08

  141. 12F-JF01-A009        192.168.12.109        00-e0-66-02-dd-d8        12楼机房A09
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

滴血雄鹰

Rank: 2

帖子
94 
积分
139 
技术
0  
捐助
0  
注册时间
2019-1-13 
4楼
发表于 2019-1-15 14:00 | 只看该作者
回复 3# Batcher


    更改是成功了，不过我重启后，出现在无法登录了？

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
5楼
发表于 2019-1-15 14:17 | 只看该作者
回复 4# 滴血雄鹰


    分别执行顶楼代码和“最终代码”没有问题，执行3楼代码之后就出现了这个问题是吗？3楼代码只是把那两个代码合并起来，没有其他改动。
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

滴血雄鹰

Rank: 2

帖子
94 
积分
139 
技术
0  
捐助
0  
注册时间
2019-1-13 
6楼
发表于 2019-1-15 15:02 | 只看该作者
回复 5# Batcher

一楼我发的就是时灵时不灵的，用3楼你的代码修改成功，但重启后现出现上述问题，能不能完整融合下代码？

TOP

ivor

Rank: 6Rank: 6

帖子
979 
积分
3381 
技术
172  
捐助
40  
注册时间
2012-1-7 
7楼
发表于 2019-1-15 15:14 | 只看该作者
本帖最后由 ivor 于 2019-1-15 16:09 编辑 

  1. Rename-Computer -NewName (Read-Host "Enter new computer name")#-Restart
复制代码
1

评分人数

TOP

滴血雄鹰

Rank: 2

帖子
94 
积分
139 
技术
0  
捐助
0  
注册时间
2019-1-13 
8楼
发表于 2019-1-15 15:34 | 只看该作者
本帖最后由 滴血雄鹰 于 2019-1-15 15:37 编辑

回复 5# Batcher


又试了下，3楼的代码可行，能不能在计算机改名后 再加行代码？
@echo off
ping -n 4 127.1 >nul    ::等待3秒
taskkill /f /im abc.exe
start C:\a\abc.exe
exit

TOP

1015710158

Rank: 1

帖子
6 
积分
19 
技术
0  
捐助
0  
注册时间
2017-8-18 
9楼
发表于 2019-1-15 15:48 | 只看该作者
本帖最后由 1015710158 于 2019-1-15 15:49 编辑

set /p name=请输入计算机名称:
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %name% /f
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName" /v ComputerName /t reg_sz /d %name% /f
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %name% /f

TOP

flashercs

Rank: 6Rank: 6

帖子
1251 
积分
2217 
技术
279  
捐助
0  
注册时间
2017-3-20 
10楼
发表于 2019-1-15 16:01 | 只看该作者
本帖最后由 flashercs 于 2019-1-15 16:05 编辑

注册表更改要慎用!!!
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet]是ControlSet集合中的某一个,一般是ControlSet001,它是个映射,假设CurrentControlSet映射的是ControlSet001,那么当你更改CurrentControlSet的内容时,[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001]
随之改变;为何要同一个键要更改两次?
同样的注册表项 映射 还有HKEY_CLASS_ROOT,HKEY_CURRENT_USER

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
11楼
发表于 2019-1-15 20:59 | 只看该作者
回复 8# 滴血雄鹰


    把这个代码的第2到4行放在3楼代码的第80行下面
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表