在命令行里，Winxp环境下如何更改计算机名？

secowu

闲着没事，想在命令行里更改计算机名，愣是没有发现哪个命令可行

1.net name 都不知道改了哪，看上去改了，可以添加删除

2.hostname只能查看计算机名

wxdjs

是不是只能命令行用注册表setvalue的方式改

tmt2008

难哪！
要修改许多键值和TCPIP有关的数据。

secowu

原帖由 tmt2008 于 2006-9-8 02:53 PM 发表
难哪！
要修改许多键值和TCPIP有关的数据。

乱讲。。。我给你VBS给你看啊。

1. 
   
2. dim WshShell,oc,c
   
3. Set WshShell = CreateObject("Wscript.Shell")
   
4. oc=ucase(WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"))
   
5. if oc="XP51" then
   
6.     c=oc & "-" & replace(cstr(timer),".","")
   
7. else
   
8.     c=oc
   
9. end if
   
10. c=ucase(InputBox( vbcr &  "  当前计算机名："& oc & vbcr & vbcr &vbcr &vbcr &"  请输入新计算机名：","更改计算机名",c ))
    
11. if trim(""&c)="" then Wscript.quit
    
12. 
    
13. WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", c ,"REG_SZ"
    
14. WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", c ,"REG_SZ"
    
15. WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname", c ,"REG_SZ"
    
16. 
    
17. msgbox(" 修改成功！ 重启生效。")

复制代码

还要不要全自动的？呵呵

1. 
   
2. dim WshShell,c
   
3. Set WshShell = CreateObject("Wscript.Shell")
   
4. c="XP51" & "-" & replace(cstr(timer),".","")
   
5. WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", c ,"REG_SZ"
   
6. WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", c ,"REG_SZ"
   
7. WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname", c ,"REG_SZ"
   

复制代码

鹤冲天

要不要重启生效？？！
强烈关注回帖，对技术不了解，但对结果很在意很在意！！
谢谢！~！

老毛桃

原帖由 鹤冲天 于 2006-9-11 11:58 发表
要不要重启生效？？！
强烈关注回帖，对技术不了解，但对结果很在意很在意！！
谢谢！~！

当然需要重启

tmt2008

原帖由 secowu 于 2006-9-8 05:33 PM 发表


乱讲。。。我给你VBS给你看啊。

dim WshShell,oc,c
Set WshShell = CreateObject("Wscript.Shell")
oc=ucase(WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\Co ...

呵呵，兄弟，如果需要重启，导出一个.REG就可以。

secowu

原帖由 tmt2008 于 2006-9-12 07:20 PM 发表

呵呵，兄弟，如果需要重启，导出一个.REG就可以。

我是想找个DOS命令直接改，而不是去操作注册表

tmt2008

原帖由 secowu 于 2006-9-13 08:29 AM 发表


我是想找个DOS命令直接改，而不是去操作注册表

呵呵，修改的结果就是要存放在注册表的，过程还要通知TCPIP协议MAC绑定等立即更新。

a1pz

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName]
"ComputerName"="RiRiNi"

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters]
"NV Hostname"="RiRiNi"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName]
"ComputerName"="RiRiNi"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters]
"NV Hostname"="RiRiNi"

把上面的表子导入即可
导表子命令 regedit /s   ****.reg(表子名)
其中RiRiNi是你的计算机名
请自行修改