这个操作可以使用一个VBS的脚本来更改域计算机的NETBIOS的名称
一下内容保存为rename.vbs
============================================
strUser = "domain user"
strPWD = "password"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objInputFile = objFSO.OpenTextFile("computers.txt")
Set objResultFile = objFSO.CreateTextFile("result.txt")
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
With objLocator.Security_
.AuthenticationLevel = 6
End With
Do
arrNames = Split(objInputFile.ReadLine,",")
RemoteRenameComputer arrNames(0),arrNames(1)
Loop Until objInputFile.AtEndOfStream
objInputFile.Close
objResultFile.Close
Sub RemoteRenameComputer(strOldComputerName,strNewComputerName)
On Error Resume Next
WScript.Echo "Connect to " & strOldComputerName & " ..."
Set objWbemService = objLocator.ConnectServer(strOldComputerName,"root\cimv2",strUser,strPWD)
If Err.Number <> 0 Then
objResultFile.WriteLine "Connection Fail: " & strComputer
Err.Clear
Else
WScript.Echo "Rename " & strComputer & " ..."
Set objComputer = objWbemService.Get("Win32_ComputerSystem.Name='" & strOldComputerName & "'")
Err = objComputer.Rename(strNewComputerName,strPWD,strUser)
If Err.Number <> 0 Then
objResultFile.WriteLine "Rename Fail: " & strOldComputerName
Err.Clear
Else
objResultFile.WriteLine "Rename Success: " & strOldComputerName
End If
End If
End Sub
========================================================
还需要一个txt的文本文件，computers为命名的，因为脚本中打开的就是computers的txt
这个txt文本中，需要填写两个内容，第一个是原名称，第二是新的名称，中间用 ， 隔开，：例如：computer1，computer2
直接双击vbs脚本，将弹出消息框等待，成功后会在同一目录下创建一个名为result.txt，显示是否更改成功。
可查看客户端计算机属性中，提示需要重启计算机，名称已经更改。Franky
