Lesta
15-06-2009, 11:56
Помогите написать скрипт для добавления учоткие в группу. только есть 1 нюанс, на тачке куда добавляется учетка нет прав. Может кто поможет обойти.
'Define here a group you want to add to Local Administrators
strGroupDOMAIN="HQ" 'Domain name where Group is (NTLM domain name)
strGroupName="Account Operators Group" 'Group sAMAccountName
'****************************************************************************
On Error Resume Next
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colGroups = objWMIService.ExecQuery("Select * from Win32_Group Where LocalAccount=True AND SID='S-1-5-32-544'")
For Each objGroup in colGroups
strCompName = objGroup.Domain
strAdminGroupName = objGroup.Name
Next
Set objAdminGroup = GetObject("WinNT://" & strCompName & "/" & strAdminGroupName & ",group")
Set objGroupToAdd = GetObject("WinNT://" & strGroupDOMAIN & "/" & strGroupName &",group")
objAdminGroup.Add(objGroupToAdd.ADsPath)
Вот этот отрабатывает. Но только если есть права. Может поможет.
Заранее спасибо.
'Define here a group you want to add to Local Administrators
strGroupDOMAIN="HQ" 'Domain name where Group is (NTLM domain name)
strGroupName="Account Operators Group" 'Group sAMAccountName
'****************************************************************************
On Error Resume Next
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colGroups = objWMIService.ExecQuery("Select * from Win32_Group Where LocalAccount=True AND SID='S-1-5-32-544'")
For Each objGroup in colGroups
strCompName = objGroup.Domain
strAdminGroupName = objGroup.Name
Next
Set objAdminGroup = GetObject("WinNT://" & strCompName & "/" & strAdminGroupName & ",group")
Set objGroupToAdd = GetObject("WinNT://" & strGroupDOMAIN & "/" & strGroupName &",group")
objAdminGroup.Add(objGroupToAdd.ADsPath)
Вот этот отрабатывает. Но только если есть права. Может поможет.
Заранее спасибо.