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

secowu · 发表于 2006-9-7 19:21:55

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

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

2.hostname只能查看计算机名

mrwang123 · 发表于 2011-3-12 11:38:48

提示: 作者被禁止或删除内容自动屏蔽

a1pz · 发表于 2011-3-12 01:22:14

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是你的计算机名
请自行修改

tmt2008 · 发表于 2006-9-13 11:41:14

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

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

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

secowu · 发表于 2006-9-13 08:29:29

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

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

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

tmt2008 · 发表于 2006-9-12 19:20:32

原帖由 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就可以。

老毛桃 · 发表于 2006-9-11 12:01:38

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

当然需要重启

鹤冲天 · 发表于 2006-9-11 11:58:34

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

secowu · 发表于 2006-9-8 17:33:33

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

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

dim WshShell,oc,c
Set WshShell = CreateObject("Wscript.Shell")
oc=ucase(WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"))
if oc="XP51" then
c=oc & "-" & replace(cstr(timer),".","")
else
c=oc
end if
c=ucase(InputBox( vbcr & " 当前计算机名："& oc & vbcr & vbcr &vbcr &vbcr &" 请输入新计算机名：","更改计算机名",c ))
if trim(""&c)="" then Wscript.quit
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", c ,"REG_SZ"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", c ,"REG_SZ"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname", c ,"REG_SZ"
msgbox(" 修改成功！重启生效。")

复制代码

还要不要全自动的？呵呵

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

复制代码

tmt2008 · 发表于 2006-9-8 14:53:32

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

wxdjs · 发表于 2006-9-7 23:58:27

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

		自动登录	找回密码
密码			注册

mrwang123 mrwang123 当前离线积分 7591 IP卡狗仔卡	11^# 发表于 2011-3-12 11:38:48 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽
mrwang123 mrwang123 当前离线积分 7591 IP卡狗仔卡
	回复使用道具举报显身卡