![]() |
1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!
![]() |
Ребус |
![]() ![]()
Сообщение
#1
|
![]() Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: ![]() ![]() ![]() |
Привет!
Этот скрипт даёт группе Help Desk право на сброс паролей пользователям домена VMwareStation.local Код Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5 Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1 Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2 Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100 Const ADS_ACEFLAG_INHERIT_ACE = &H2 Set objSdUtil = GetObject("LDAP://DC=VMwareStation, DC=local") Set objSD = objSdUtil.Get("ntSecurityDescriptor") Set objDACL = objSD.DiscretionaryACL Set objAce = CreateObject("AccessControlEntry") objAce.Trustee = "VMwareStation\Help Desk" objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT OR ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT 'Enables you to reset the password on a user account. You do not need to know the user’s current password in order to provide them with a new password. objAce.ObjectType = "{00299570-246d-11d0-a768-00aa006e0529}" 'representing the GUID for the user account object in Active Directory. objACE.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}" objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS objDACL.AddAce objAce objSD.DiscretionaryAcl = objDACL objSDUtil.Put "ntSecurityDescriptor", Array(objSD) objSDUtil.SetInfo т.е. GUID объекта "Сброс пароля" выглядит так 00299570-246d-11d0-a768-00aa006e0529 Кто знает, напишите, какие GUID у следующих объектов: -разблокирование аккаунта -полный доступ -право давать пользователям право на чтение файлов -создание/удаление пользовательских аккаунтов |
![]() ![]() |
![]() |
Текстовая версия | 13.08.2025 17:56 |