Script to Get Office 365 Mailbox Folder Permissions

Function Get-OSCMsolMailboxFolderPermission 
{ 
    [CmdletBinding()] 
    Param 
    ( 
        #Define parameters 
        [Parameter(Mandatory=$false,Position=1)] 
        [System.Management.Automation.PSCredential]$Credential, 
        [Parameter(Mandatory=$true,Position=2)] 
        [string]$MailboxFilter, 
        [Parameter(Mandatory=$true,Position=3)] 
        [string]$FolderName, 
        [Parameter(Mandatory=$false,Position=4)] 
        [switch]$DisconnectSession 
    ) 
    Process 
    { 
        $reports = @() 
        #Connect Windows PowerShell to Office 365 
        Try 
        { 
            #If session does not exist, create a new session. 
            $existingSession = Get-PSSession -Verbose:$false | Where-Object {$_.ConfigurationName -eq "Microsoft.Exchange"} 
            if ($existingSession -eq $null) { 
                $verboseMsg = $Messages.CreatingSession 
                $pscmdlet.WriteVerbose($verboseMsg) 
                $O365Session = New-PSSession -ConfigurationName Microsoft.Exchange ` 
                -ConnectionUri "https://ps.outlook.com/powershell" -Credential $Credential ` 
                -Authentication Basic -AllowRedirection 
                #If session is newly created, import the session. 
                Import-PSSession -Session $O365Session -Verbose:$false | Out-Null 
                $existingSession = $O365Session 
            } else { 
                $verboseMsg = $Messages.FoundExistingSession 
                $pscmdlet.WriteVerbose($verboseMsg) 
            } 
        } 
        Catch 
        { 
            $pscmdlet.WriteError($Error[0]) 
        } 
        if ($existingSession -ne $null) { 
            #Get mailboxes 
            $mailboxes = Get-Mailbox -Filter $MailboxFilter -ResultSize unlimited 
            #If mailboxes exists, use Get-MailboxFolderPermission to retrieve permissions.  
            if ($mailboxes -ne $null) { 
                foreach ($mailbox in $mailboxes) { 
                    $mailboxAlias = $mailbox.Alias 
                    $mailboxDisplayName = $mailbox.DisplayName 
                    $permissions = Get-MailboxFolderPermission -Identity "$mailboxAlias`:\$FolderName" 
                    if ($permissions -ne $null) { 
                        foreach ($permission in $permissions) { 
                            $report = New-Object PSObject 
                            $report | Add-Member -MemberType NoteProperty -Name "MailboxAlias" -Value $mailboxAlias 
                            $report | Add-Member -MemberType NoteProperty -Name "MailboxDisplayName" -Value $mailboxDisplayName 
                            $report | Add-Member -MemberType NoteProperty -Name "FolderName" -Value $permission.FolderName 
                            $report | Add-Member -MemberType NoteProperty -Name "User" -Value $permission.User 
                            $report | Add-Member -MemberType NoteProperty -Name "AccessRights" -Value $permission.AccessRights 
                            $reports += $report 
                        } 
                    } else { 
                        $report = New-Object PSObject 
                        $report | Add-Member -MemberType NoteProperty -Name "MailboxAlias" -Value $mailboxAlias 
                        $report | Add-Member -MemberType NoteProperty -Name "MailboxDisplayName" -Value $mailboxDisplayName 
                        $report | Add-Member -MemberType NoteProperty -Name "FolderName" -Value "N/A" 
                        $report | Add-Member -MemberType NoteProperty -Name "User" -Value "N/A" 
                        $report | Add-Member -MemberType NoteProperty -Name "AccessRights" -Value "N/A" 
                        $reports += $report 
                    } 
 
                } 
            } else { 
                $warningMsg = $Messages.CannotFindMBXWithSpecifiedFilter 
                $warningMsg = $warningMsg -replace "Placeholder01",$MailboxFilter 
                $pscmdlet.WriteWarning($warningMsg) 
            } 
            #Disconnect Windows PowerShell from Office 365 
            if ($DisconnectSession) { 
                Remove-PSSession -Session $existingSession -Verbose:$false 
            } 
            #Return the result 
            return $reports 
        } 
    } 
}