域用户如何更改计算机名,加入域以后的xp如何修改计算机名?

这个操作可以使用一个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，显示是否更改成功。

可查看客户端计算机属性中，提示需要重启计算机，名称已经更改。

取消

评论