Okręt podwodny SetExMbxPerms2 (ByVal użytkownik Jako DirectoryEntry, ByVal powiernik Sznurek)
Const ADS_ACEFLAG_INHERIT_ACE = 2
Const ADS_RIGHT_DS_CREATE_CHILD = (1)
Const ADS_ACETYPE_ACCESS_ALLOWED = (0)
Ciemnawy dacl Jako Nowy AccessControlList
Ciemnawy mailboxRights Jako Nowy SecurityDescriptor
Ćmić as Jako Nowy AccessControlEntry
Ćmić skrzynka pocztowa Jako CDOEXM.IExchangeMailbox = user.NativeObject
mailboxRights = mailbox.MailboxRights
dacl = mailboxRights.DiscretionaryAcl
ace.AccessMask = ADS_RIGHT_DS_CREATE_CHILD
ace.AceType = ADS_ACETYPE_ACCESS_ALLOWED
ace.AceFlags = ADS_ACEFLAG_INHERIT_ACE
as. Flaga = (0)
as. Powiernik = powiernik
Console.WriteLine (dacl.AceCount)
dacl.AddAce (as)
Console.WriteLine (dacl.AceCount)
mailboxRights.DiscretionaryAcl = dacl
mailbox.MailboxRights = mailboxRights
user.CommitChanges ()
Końcówka Okręt podwodny
|