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}  
}

# distinguishedName of the group in which the users are members
$group = 'CN=TestGruppe,CN=Users,DC=domain,DC=de'  
# fetch all users of group without current user
$users = [adsisearcher]::new("(&(objectCategory=User)(memberof=$group))","SamAccountName").FindAll() | %{$_.Properties['SamAccountName']} | ?{$_ -ne $env:Username}   

# function which adds shared calendars to outlook.
function Add-SharedCalendarToOutlook {
    <#
    .Synopsis
        Add shared calendars to outlook
    .DESCRIPTION
        Adds one or more shared calendars to outlook
    .EXAMPLE
        Add-SharedCalendarToOutlook -calendar 'maxmuster','shared@domain.tld' -defaultpane olPeopleFoldersGroup -verbose  
   
        Add two shared calendars to the default MyFolders group of outlook
    .EXAMPLE
        Add-SharedCalendarToOutlook -calendar 'maxmuster','shared@domain.tld' -custompane 'MyTestGroup' -verbose  

        Add two shared calendars to a custom group named 'MyTestGroup'  
    .NOTES
        To specify calendars you can use the name, alias or e-mail address of the mailbox in which the calendar resides.
        To close outlook after adding the calendars you can add the switch '-closeoutlook'  
    #>
    [cmdletbinding(SupportsShouldProcess=$true)]
    param(
        # name, alias or e-mail address of the mailbox from which to add the shared calendar
        [parameter(mandatory=$true)][ValidateNotNullOrEmpty()][string[]]$calendar,
        # specify on of the default outlook navigation panes to add the calendar as a childfolder
        [parameter(mandatory=$false,ParameterSetName='defaultpane')][ValidateSet('olMyFoldersGroup','olOtherFoldersGroup','olPeopleFoldersGroup','olRoomsGroup')][string]$defaultpane = 'olPeopleFoldersGroup',  
        # specify a name of a custom folder to add the calendar as a childfolder
        [parameter(mandatory=$false,ParameterSetName='custompane')][string]$custompane,  
        # to close the outlook process after processing add this switch
        [parameter(mandatory=$false)][switch]$closeoutlook
    )
    $ErrorActionPreference = 'Stop'  

    # pane mapping to values
    $defaultpane_map = @{
        olCustomFoldersGroup = 0
        olFavoriteFoldersGroup = 4
        olMyFoldersGroup = 1
        olOtherFoldersGroup = 3
        olPeopleFoldersGroup = 2
        olRoomsGroup = 5
    }

    try{
        $ol = $null
        # get outlook com-object
        try{
            $ol = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Outlook.Application')  
        }catch{
            $ol = New-Object -Com Outlook.Application
        }
        # get mapi namespace reference
        $ns = $ol.GetNamespace("MAPI")  
   
        # get calendar nav module
        $navMod = $ns.GetDefaultFolder(9).GetExplorer().NavigationPane.Modules.GetNavigationModule(1)
        # get navigation subgroup
        if($PSCmdlet.ParameterSetName -eq 'defaultpane'){  
            $navGroup = $navMod.NavigationGroups.GetDefaultNavigationGroup($defaultpane_map[$defaultpane])
        }else{
            $navGroup = $navMod.NavigationGroups | ?{$_.Name -eq $custompane -and $_.GroupType -eq 0}
            if (!$navGroup){
                throw "Navigation group '$custompane' not found!"  
            }    
        }

        # for each calendar ...
        foreach($user in $calendar){
            try{
                # create receipient object
                $recipient = $ns.CreateRecipient($user)
                # resolve receipient
                $recipient.Resolve() | out-null
                # if recipient found
                if ($recipient.Resolved){
                    if ($PSCMDLet.ShouldProcess($recipient.Name,"Adding calendar to group '$($navGroup.Name)'")){  
                        # get calendar folder reference of recipient
                        $cal = $ns.GetSharedDefaultFolder($recipient, 9)
                        if($cal){
                            # add calendar to calendar navigation pane
                            $navGroup.NavigationFolders.Add($cal) | out-null
                        }else{
                            throw "Calendar of principal '$user' could not be retrieved. Make sure the user has enough access rights."  
                        }
                    }
                }else{
                    throw "Recipient '$user' could not be resolved!"  
                }
            }catch{
                write-host $_.Exception.Message -F Red
            }
        }
    }catch{
        write-host $_.Exception.Message -F Red
    }finally{
        if($closeoutlook.IsPresent){
            $ol.Quit()
        }
        # cleanup
        if($ol){
            [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($ol)
        }
    } 
}

# if there are members in the group
if ($users){
    # use function to add calendars
    Add-SharedCalendarToOutlook -calendar $users -defaultpane olPeopleFoldersGroup -verbose
}else{
    write-warning "No members found in group '$group'."  
}

# 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}