快捷修改计算机名称
操作方法
- 01
sNewName = ComputerName sNewName="xxx" Set oShell = CreateObject ("WSCript.shell") sCCS = "HKLM\SYSTEM\CurrentControlSet\" sTcpipParamsRegPath = sCCS & "Services\Tcpip\Parameters\" sCompNameRegPath = sCCS & "Control\ComputerName\" With oShell .RegDelete sTcpipParamsRegPath & "Hostname" .RegDelete sTcpipParamsRegPath & "NV Hostname" .RegWrite sCompNameRegPath & "ComputerName\ComputerName", sNewName .RegWrite sCompNameRegPath & "ActiveComputerName\ComputerName", sNewName .RegWrite sTcpipParamsRegPath & "Hostname", sNewName .RegWrite sTcpipParamsRegPath & "NV Hostname", sNewName End With xxx表示的是需要修改的主机名(请勿在一个局域网内出现2个相同的主机名、) 切记不要把这给清除或者修改;不然注册表内会丢失项。 此内容放入txt然后把后缀改为VBE即可。 非专业人士请勿乱操作。谢谢
赞 (0)