主题：怎么用VB修改计算机名？
xjh22700
[专家分：320] 发布于 2011-06-09 15:10:00
SetComputerName函数就不用说了，我XP、2003、windows7上都试过了，不管用！！如果用修改注册表的方法，请把所有要修改的地方一个不落地列出来，我以前也用修改注册表的方法试过，虽然在客户机里显示是被改了，但用万象收银端搜索出来的却又是原来的名字，不知是不是我的修改不完全！！
总之，只要是用VB实现，不管有什么方法实现修改计算机名，请一一详细说来.
回复列表 （共1个回复）
沙发
一江秋水 [专家分：9680] 发布于 2011-06-10 09:18:00
如果只在“我的电脑-属性-计算机名”中改名，那么只要改一个注册表项值：
Dim ws
Set ws = CreateObject("wscript.shell")
ws.regwrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", "一江秋水电脑"
Set ws = Nothing
如果要达到你说的目标，可能要改以下项值并重启（不过我没试过）：
Dim ws
Set ws = CreateObject("wscript.shell")
ws.regwrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", "一江秋水电脑"
ws.regwrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname", "一江秋水电脑"
ws.regwrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", "一江秋水电脑"
ws.regwrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName\ComputerName", "一江秋水电脑"
ws.regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AltDefaultDomainName", "一江秋水电脑"
ws.regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName", "一江秋水电脑"
Set ws = Nothing
我来回复
您所在位置：