這個操作可以使用一個VBS的指令碼來更改域計算機的NETBIOS的名稱一下內容儲存為rename.vbs============================================strUser="domainuser"strPWD="password"SetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjInputFile=objFSO.OpenTextFile("computers.txt")SetobjResultFile=objFSO.CreateTextFile("result.txt")SetobjLocator=CreateObject("WbemScripting.SWbemLocator")WithobjLocator.Security_.AuthenticationLevel=6EndWithDoarrNames=Split(objInputFile.ReadLine,",")RemoteRenameComputerarrNames(0),arrNames(1)LoopUntilobjInputFile.AtEndOfStreamobjInputFile.CloseobjResultFile.CloseSubRemoteRenameComputer(strOldComputerName,strNewComputerName)OnErrorResumeNextWScript.Echo"Connectto"&strOldComputerName&"..."SetobjWbemService=objLocator.ConnectServer(strOldComputerName,"root\cimv2",strUser,strPWD)IfErr.Number<>0ThenobjResultFile.WriteLine"ConnectionFail:"&strComputerErr.ClearElseWScript.Echo"Rename"&strComputer&"..."SetobjComputer=objWbemService.Get("Win32_ComputerSystem.Name=""&strOldComputerName&""")Err=objComputer.Rename(strNewComputerName,strPWD,strUser)IfErr.Number<>0ThenobjResultFile.WriteLine"RenameFail:"&strOldComputerNameErr.ClearElseobjResultFile.WriteLine"RenameSuccess:"&strOldComputerNameEndIfEndIfEndSub========================================================還需要一個txt的文字檔案，computers為命名的，因為指令碼中開啟的就是computers的txt這個txt文字中，需要填寫兩個內容，第一個是原名稱，第二是新的名稱，中間用，隔開，：例如：computer1，computer2直接雙擊vbs指令碼，將彈出訊息框等待，成功後會在同一目錄下建立一個名為result.txt，顯示是否更改成功。可檢視客戶端計算機屬性中，提示需要重啟計算機，名稱已經更改。