Question : msExchMailboxSecurityDescriptor d'arrangement avec VB.NET

Bonjour,

I AM essayant d'ajouter un nouveau descripteur de sécurité à une boîte aux lettres afin d'accorder à des autres le compte pleines droites lui.  J'ajoute actuellement un descripteur normal de sécurité par l'intermédiaire de cette méthode : le

a protégé le

de SetFullMbxPerms (utilisateur de ByVal comme administrateur de DirectoryEntry, de ByVal comme SecurityIdentifier) obscurcissent l'userSecurity comme ActiveDirectorySecurity = fullMbxControl d'user.ObjectSecurity

faible en tant que nouvel ActiveDirectoryAccessRule (trustee, _
ActiveDirectoryRights.GenericAll, AccessControlType.Allow, _
ActiveDirectorySecurityInheritance. L'extrémité Sub

However, ceci du

du
user.CommitChanges du

userSecurity.AddAccessRule (fullMbxControl) de SelfAndChildren) () m'obtient seulement la sécurité active d'annuaire et pas la sécurité de boîte aux lettres.  Comment est-ce que je peux accomplir ceci par vb.net et modifier le msExchMailboxSecurityDescriptor semblable à ce que j'ai fait ci-dessus ?

Thanks,
Ron class= de

Réponse : msExchMailboxSecurityDescriptor d'arrangement avec VB.NET

L'ok, ceci fonctionne employant DirectoryEntry et cdoexm
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :

    SetExMbxPerms2 secondaire (utilisateur de ByVal comme administrateur de DirectoryEntry, de ByVal comme corde)

        Const ADS_ACEFLAG_INHERIT_ACE = 2
        Const ADS_RIGHT_DS_CREATE_CHILD = 1
        Const ADS_ACETYPE_ACCESS_ALLOWED = 0

        Faible dacl en tant que nouvel Access Control List
        Faibles mailboxRights en tant que nouveau SecurityDescriptor
        Faible as en tant que nouvel AccessControlEntry
        Faible boîte aux lettres en tant que 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. Drapeaux = 0
        as. Administrateur = administrateur
        Console.WriteLine (dacl.AceCount)
        dacl.AddAce (as)
        Console.WriteLine (dacl.AceCount)
        mailboxRights.DiscretionaryAcl = dacl
        mailbox.MailboxRights = mailboxRights
        user.CommitChanges ()

    Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us