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

发布网友 发布时间：2022-04-23 03:46

我来回答

共4个回答

热心网友 时间：2023-11-01 07:39

这个操作可以使用一个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，显示是否更改成功。
可查看客户端计算机属性中，提示需要重启计算机，名称已经更改。

热心网友 时间：2023-11-01 07:39

很不好意思，我不会退出域，我的电脑属性里面的东西全是灰色的[s:246]开机要输入域账号和密码的。

热心网友 时间：2023-11-01 07:40

楼主系统盘如果是FAT32格式的，可以尝试使用组策略，增加一个本地管理员帐户，然后登录修改计算机名字，否则就只能找网管啦。。。

热心网友 时间：2023-11-01 07:40

有以下方式可进行处理一:提升用户权限二:将计算机退出域,重新启动电脑,更新数据后,重新加入域