Script repository

$csvFilePath = "\\Server\Share\MailboxDelegates.csv" # TODO: modify me

function SearchObjects($criteria, $properties)
{
    $searcher = $Context.BindToObject("Adaxes://rootDSE")
    $searcher.Criteria = $criteria
    $searcher.SearchScope = "ADS_SCOPE_SUBTREE"
    $searcher.PageSize = 500
    $searcher.ReferralChasing = "ADS_CHASE_REFERRALS_NEVER"
    $searcher.SetPropertiesToLoad($properties)
    $searcher.VirtualRoot = $True
    
    try
    {
        $searchResultIterator = $searcher.ExecuteSearch()
        $searchResults = $searchResultIterator.FetchAll()
        
        return ,$searchResults
    }
    finally
    {
        # Release resources
        if ($searchResultIterator){ $searchResultIterator.Dispose() }
    }
}

# Search mailbox
$criteria = New-AdmCriteria "user" -Expression {publicDelegates -empty $False}
$searchResults = SearchObjects $criteria @("publicDelegates")

# Build report
$report = New-Object System.Collections.ArrayList
foreach ($searchResult in $searchResults)
{
    # Get mailbox name.
    $mailboxDisplayName = $Context.GetDisplayNameFromAdsPath($searchResult.AdsPath)

    $publicDelegates = $searchResult.Properties["publicDelegates"].Values
    for ($i = 0; $i -lt $publicDelegates.Count; $i++)
    {
        # Get object name.
        $displayName = $Context.GetDisplayNameFromAdsPath("Adaxes://$($publicDelegates[$i])")
        
        # Build record
        $record = New-Object PSObject
        $record | Add-Member -Membertype NoteProperty -Name "Mailbox name" -Value $mailboxDisplayName
        $record | Add-Member -Membertype NoteProperty -Name "ResourceDelegates" -Value $displayName
        
        # Add record to the report
        $report.Add($record)
    }
}

# Export to CSV file
$report | Export-Csv $csvFilePath -NoTypeInformation