[网络连接] 批处理如何根据IP修改计算机名？

youxi01

应一朋友要求，帮忙修改计算机名

具体要求：
根据IP最后的数字+H作为计算机名

如：该计算机IP为220.221.2.101
那么就将该计算机重命名为：H101

xxymg

在看.......沙发

lovelymorning

@echo off
for /f "tokens=15" %%i in ('ipconfig /all^|find "IP Address"') do set name=%%i
set name=H%name:~-3%
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /f /v ComputerName /t reg_sz /d "%name%"
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /f /t reg_sz /d "%name%"
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /f /v Hostname /t reg_sz /d "%name%"
taskkill /im explorer.exe /f&start explorer.exe
rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1
复制代码

不好意思，因为在CMD下测试，最后忘了把for加多个百分号了，一个百分号的for在批处理中是错误的，加多一个就可以了

[ 本帖最后由 lovelymorning 于 2008-6-20 20:24 编辑 ]

lianwangnanhai

为什么我复制了以后直接运行不可以呢？
一句一句的来倒是行。

batman

@echo off
for /f "tokens=6 delims=.: " %%i in ('ipconfig /all^|findstr /c:"IP Address"') do set name=H%%i
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /f /v ComputerName /t reg_sz /d "%name%"
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /f /t reg_sz /d "%name%"
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /f /v Hostname /t reg_sz /d "%name%"
taskkill /im explorer.exe /f
start "" "c:\windows\explorer.exe"
复制代码

Batcher

@echo off
for /f "tokens=6 delims=.: " %%i in ('ipconfig /all^|findstr /c:"IP Address"') do set newname=H%%i
wmic computersystem where "name='%computername%'" call rename %newname%
rem 重启计算机后生效
复制代码

friendtasy

试过此法更改机器名，有些软件如会计电算化会造成，运行服务器还是前次机器名导致不能创建帐套，感觉仅仅修改这三个键值不够全面，应该还要修改几个键值才全面。

[ 本帖最后由 friendtasy 于 2009-12-10 21:34 编辑 ]

rzacx

问一下，我想最后两组数做计算机名呢


根据IP最后两组数字+H作为计算机名

如：该计算机IP为220.221.11.101
那么就将该计算机重命名为：H11101

CrLf

回八楼，那不是一个道理的么？
另外个人感觉ipconfig存在不同版本cmd返回值各异的兼容性问题，不如wmic保险

@echo off
for /f "skip=1 tokens=3,4 delims=.}" %%i in (
'wmic nicconfig where FullDNSRegistrationEnabled^="true" get ipaddress') do (
wmic computersystem where "name='%computername%'" call rename "H%%i%%j
)
rem 重启计算机后生效
复制代码

rzacx

我是想要免重启立即生效的那种