Exchange Einführung - Kalender aller User untereinander freigeben und hinzufügen

<#
    Mailboxen gegenseitigen Zugriff auf den Kalender geben 
#>

# Zuweisbare Rechte
# Kombinierbare Rechte sind folgende
<#
   - CreateItems   Der Benutzer kann Elemente im angegebenen Ordner erstellen.
   - CreateSubfolders   Der Benutzer kann Unterordner im angegebenen Ordner erstellen.
   - DeleteAllItems   Der Benutzer kann alle Elemente im angegebenen Ordner löschen
   - DeleteOwnedItems   Der Benutzer kann nur die Elemente löschen, die im angegebenen Ordner erstellt wurden.
   - EditAllItems   Der Benutzer kann alle Elemente im angegebenen Ordner bearbeiten.
   - EditOwnedItems   Der Benutzer kann nur die Elemente bearbeiten, die im angegebenen Ordner erstellt wurden.
   - FolderContact   Der Benutzer ist der Kontakt für den angegebenen Öffentlichen Ordner.
   - FolderOwner   Der Benutzer ist der Besitzer des angegebenen Ordners. Der Benutzer kann den Ordner anzeigen, den Ordner verschieben und Unterordner erstellen. Der Benutzer darf keine Elemente lesen, bearbeiten, löschen oder erstellen.
   - FolderVisible   Der Benutzer kann den angegebenen Ordner anzeigen, darf jedoch in diesem Ordner keine Elemente lesen oder bearbeiten.
   - ReadItems   Der Benutzer kann Elemente im angegebenen Ordner lesen.
#>
$rights = "FolderVisible","ReadItems"  
# Maiboxen definieren (hier nur Usermailboxen)
$mailboxes = Get-Mailbox -RecipientTypeDetails UserMailbox -ResultSize unlimited
$mailboxes | %{
    $box = $_
    # Kalendername extrahieren (Grund: Diese sind sprachabhängig je nachdem welche Sprache die Mailbox hat)
    $calname = [string](Get-mailboxfolderstatistics $box -folderscope calendar | ?{$_.FolderType -eq 'Calendar'} | select -First 1).Name  
    # Allen mailboxen (außer der eigenen) Zugriffsrechte auf den Kalender vergeben
    $mailboxes.Alias | ?{$_ -ne $box.Alias} | %{Add-MailboxFolderPermission "$($box.alias):\$calname" -AccessRights $rights -User $_ -Confirm:$false}  
}

# DN der Gruppe angeben
$group = 'CN=TestGruppe,CN=Users,DC=domain,DC=de'  
# fetch all users of group without current user
$users = (new-object adsisearcher("LDAP://$(([adsi]'LDAP://rootDSE').defaultNamingContext)","(&(objectCategory=User)(memberof=$group))","SamAccountName",[System.DirectoryServices.SearchScope]::Subtree)).FindAll() | %{$_.Properties['SamAccountName']} | ?{$_ -ne $env:Username}  

if ($users){
    # get outlook com-object
    [void][reflection.assembly]::LoadWithPartialName("microsoft.visualbasic")  
    $objOL = [microsoft.visualbasic.interaction]::GetObject($null,"Outlook.Application")  
    if (!$objOL){$objOL = New-Object -Com Outlook.Application}
    # get mapi namespace reference
    $ns = $objOL.GetNamespace("MAPI")  
    # get calendar nav module
    $navMod = $ns.GetDefaultFolder(9).GetExplorer().NavigationPane.Modules.GetNavigationModule(1)
    # get peoples subgroup
    $navGroup = $navMod.NavigationGroups.GetDefaultNavigationGroup(1)
    # for each user ...
    $users | %{
        # create receipient object
        $recipient = $ns.CreateRecipient($_)
        # resolve receipient
        $recipient.Resolve() | out-null
        # if recipient found
        if ($recipient.Resolved){
            # get calendar folder reference of recipient
            $calendar = $ns.GetSharedDefaultFolder($recipient, 9)
            if($calendar){
                # add calendar to calendar navigation pane
                $navGroup.NavigationFolders.Add($calendar) | out-null
            }else{
                write-host "Calendar of '$_' could not be retrieved. Make sure the user has enough access rights." -ForegroundColor Yellow  
            }
        }else{
            write-host "Receipient '$_' could not be resolved!" -ForegroundColor Yellow  
        }
    }
    # quit outlook
    $objOL.Quit()
}else{
    write-host "No Users to process." -ForegroundColor Yellow  
}

# Maiboxen definieren (hier nur Usermailboxen)
$mailboxes = Get-Mailbox -RecipientTypeDetails UserMailbox -ResultSize unlimited
$mailboxes | %{
    $box = $_
    # Kalendername extrahieren (Grund: Diese sind sprachabhängig je nachdem welche Sprache die Mailbox hat)
    $calname = [string](Get-mailboxfolderstatistics $box -folderscope calendar | ?{$_.FolderType -eq 'Calendar'} | select -First 1).Name  
    # Allen mailboxen (außer der eigenen) Zugriffsrechte auf den Kalender entfernen
    $mailboxes.Alias | ?{$_ -ne $box.Alias} | %{Remove-MailboxFolderPermission "$($box.alias):\$calname" -User $_ -Confirm:$false}  
}

Get-MailboxFolderPermission "$($box.alias):\$calname" | ?{$_.User.RecipientPrincipal.alias -in $mailboxes.Alias} | %{Remove-MailboxFolderPermission $_.Identity -User $_.User.RecipientPrincipal.alias -Confirm:$false}