PS:在微软的脚本中心也有该脚本,但是是定义了计算机名的,如果改成"."匹配当前计算机提示以下错误: 只有再通过脚本get一次计算机名,再将这个变量添加进去则脚本OK。最终得到上面的脚本。
- 'Script Start
- On Error Resume Next
- strComputer = "."
- Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
- Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
- For Each objComputer in colComputers
- strPCname = UCase(objComputer.Name)
- Next
- Set objGroup = GetObject("WinNT://" & strPCname & "/Administrators,group")
- Set objUser = GetObject("WinNT://yangye/ITAdmin")
- 'yangye表示域的NetBIOS名,Itadmin为域账号
- objGroup.Add(objUser.ADSPath)
- 'Script End
本文出自 “Leaves驿站” 博客,请务必保留此出处http://yangye.blog.51cto.com/922715/200442