Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Ада и другие языки _ GUID объектов

Автор: Ребус 29.10.2008 4:23

Привет!
Этот скрипт даёт группе 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 у следующих объектов:
-разблокирование аккаунта
-полный доступ
-право давать пользователям право на чтение файлов
-создание/удаление пользовательских аккаунтов