Exchange 2013 - Seperierte Adresslisten für Abteilungen

<#
    Gruppen gezielt expliziten Zugriff auf bestimmte Exchange-Adresslisten geben
#>

Import-Module ActiveDirectory

# Hier die Zuordnung der Listen zu den Gruppen vornehmen
$addresslist_mapping = @{
    'ListeA' = 'DOMAIN\Gruppe_Abteilung_A'  
    'ListeB' = 'DOMAIN\Gruppe_Abteilung_B'  
}

$addresslist_mapping.GetEnumerator() | %{
    write-host "Berechtige AD-Account '$($_.Value)' auf Adressliste '$($_.Key)'." -ForegroundColor Green  
    # hole Adresslistenobjekt
    $liste = Get-AddressList $_.Key
    # Deaktiviere die Vererbung wenn Vererbung noch nicht unterbrochen ist.
    $acl = Get-Acl "AD:$($liste.DistinguishedName)"  
    if (!$acl.AreAccessRulesProtected){
        $acl.SetAccessRuleProtection($true,$true)
        Set-ACL "AD:$($liste.DistinguishedName)" $acl  
        # non canonical fix (reorder acl's)  
        dsacls $liste.DistinguishedName /p:y | out-null
    }

    $acl = Get-Acl "AD:$($liste.DistinguishedName)"  
    # Entferne Authentifizierte Benutzer Regeln
    $acl.RemoveAccess([System.Security.Principal.SecurityIdentifier]'S-1-5-11',0)  
    
    # Füge Gruppenberechtigung hinzu
    $account = new-object System.Security.Principal.NTAccount($_.Value)
    $ruleReadList = New-Object System.DirectoryServices.ActiveDirectoryAccessRule ($account,'ExtendedRight',0,'a1990816-4298-11d1-ade2-00c04fd8d5cd',0)  
    $ruleReadObject = New-Object System.DirectoryServices.ActiveDirectoryAccessRule ($account,'GenericRead',0,0)  
    $acl.AddAccessRule($ruleReadList) | out-null
    $acl.AddAccessRule($ruleReadObject) | out-null
    # Schreibe ACL
    Set-ACL "AD:$($liste.DistinguishedName)" $acl | out-null  
}