![]() |
Добавление учетки в группу Администратор
Помогите написать скрипт для добавления учоткие в группу. только есть 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) Вот этот отрабатывает. Но только если есть права. Может поможет. Заранее спасибо. |
Цитата:
|
Время: 15:30. |
Время: 15:30.
© OSzone.net 2001-