Armani
2006-08-15, 04:19 PM
小弟公司有分為三個分公司與總公司分處各地,透過VPN專線連結一共兩百多個CLIENT,由於日前做網域整合,已將全數的CLIENT電腦加入到統一的網域之中,但現在網芳上的電腦名稱以及AD中的電腦名稱無法立即性的辨識,因此想要修改各地的電腦名稱統一為 "地區-網域-使用者名稱",例如為 "TW-Domain-DavidChen",不知有何方式可以較快速的做到?
查詢到的這個方式目前實驗失效
http://support.microsoft.com/kb/298593/zh-tw#appliesto
用SCRIPT在實驗階段也失敗
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
err = ObjComputer.Rename("WebServer")
Wscript.Echo err
Next
請各位先進指導一下,實在不太想淪落到一台一台去設定...:|||:
查詢到的這個方式目前實驗失效
http://support.microsoft.com/kb/298593/zh-tw#appliesto
用SCRIPT在實驗階段也失敗
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
err = ObjComputer.Rename("WebServer")
Wscript.Echo err
Next
請各位先進指導一下,實在不太想淪落到一台一台去設定...:|||: