域用户如何更改计算机名,加入域后的计算机，怎么改计算机名?

这个操作可以使用一个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