Entra / Microsoft 365 · Exchange Online

Report managers and direct reports

A script to report the managers and their direct reports in a tenant using Exchange Online cmdlets.

Connect & set up

Run these once per session. All scopes are read-only unless the script makes changes.

Connect-ExchangeOnline -ShowBanner:$false

Run it

The main script. Copy it, or download the .ps1 and run it from your console.

Clear-Host
# Check that we are connected to Exchange Online
$ModulesLoaded = Get-Module | Select-Object Name
If (!($ModulesLoaded -match "ExchangeOnlineManagement")) {
   Write-Host "Please connect to the Exchange Online Management module and then restart the script";
   break
}
 
$OrgName = (Get-OrganizationConfig).Name
$CreationDate = Get-Date -format g
$Version = "1.0"
$ReportFile = "c:\temp\ManagersReport.html"
$CSVFileMembers = "c:\temp\ManagersReport.csv"
$NumberDR = 0
# Find people who have direct reports
Write-Host "Finding managers..."
[array]$Managers = Get-User -Filter {DirectReports -ne $null} | Select-Object DisplayName, UserPrincipalName, ExternalDirectoryObjectId, DistinguishedName
If (!($Managers)) {
   Write-Host "No managers with direct reports found!" ; break
}
$ReportsList = [System.Collections.Generic.List[Object]]::new()
$ManagersWithoutDR = [System.Collections.Generic.List[Object]]::new()
# Loop through each manager to find their direct reports
Write-Host "Finding direct reports..."
ForEach ($Manager in $Managers) {
    $Dn = $Manager.DistinguishedName
    If ($Dn -like "*'*")  {
       $DNNew = "'" + "$($Dn.Replace("'","''''"))" + "'"
       $Cmd = "Get-User -Filter 'Members -eq '$DNnew''"
       [array]$Reports = Invoke-Expression $Cmd }
    Else {
       [array]$Reports = Get-User -Filter "Manager -eq '$Dn'" }
    If ($Reports.Count -eq 0) { $ManagersWithoutDR.Add($Manager.DisplayName) }
    $ReportLine = [PSCustomObject][Ordered]@{  # Write out details of the manager's reports
       Manager             = $Manager.DisplayName
       UPN                 = $Manager.UserPrincipalName
       "Number of reports" = $Reports.Count
       "Direct Reports"    = $Reports.DisplayName -join ", " }
    $ReportsList.Add($ReportLine)
    $NumberDR = $NumberDR + $Reports.Count
} # End ForEach
 
# Create the HTML report
$htmlhead="<html>
	   <style>
	   BODY{font-family: Arial; font-size: 8pt;}
	   H1{font-size: 22px; font-family: 'Segoe UI Light','Segoe UI','Lucida Grande',Verdana,Arial,Helvetica,sans-serif;}
	   H2{font-size: 18px; font-family: 'Segoe UI Light','Segoe UI','Lucida Grande',Verdana,Arial,Helvetica,sans-serif;}
	   H3{font-size: 16px; font-family: 'Segoe UI Light','Segoe UI','Lucida Grande',Verdana,Arial,Helvetica,sans-serif;}
	   TABLE{border: 1px solid black; border-collapse: collapse; font-size: 8pt;}
	   TH{border: 1px solid #969595; background: #dddddd; padding: 5px; color: #000000;}
	   TD{border: 1px solid #969595; padding: 5px; }
	   td.pass{background: #B7EB83;}
	   td.warn{background: #FFF275;}
	   td.fail{background: #FF2626; color: #ffffff;}
	   td.info{background: #85D4FF;}
	   </style>
	   <body>
           <div align=center>
           <p><h1>Manager and Direct Reports Listing</h1></p>
           <p><h2><b>For the " + $Orgname + " organization</b></h2></p>
           <p><h3>Generated: " + (Get-Date -format g) + "</h3></p></div>"
 
$htmlbody1 = $ReportsList | ConvertTo-Html -Fragment
$CountNoDR = $ManagersWithoutDR.Count
$ManagersWithoutDR = $ManagersWithoutDR -join ", "
$htmltail = "<p>Report created for: " + $OrgName + "</p>" +
             "<p>Created: " + $CreationDate + "<p>" +
             "<p>-----------------------------------------------------------------------------------------------------------------------------</p>"+
             "<p>Number of managers found:              " + $Managers.Count + "</p>" +
             "<p>Number of direct reports:              " + $NumberDR + "</p>" +
             "<p>Count of managers with no reports:     " + $CountNoDR +  "</p>" +
             "<p>Managers with no direct reports:       " + $ManagersWithoutDR + "</p>" +
             "<p>Average number of reports per manager: " + [math]::Round(($NumberDR/$Managers.Count),2) + "</p>" +
             "<p>-----------------------------------------------------------------------------------------------------------------------------</p>"+
             "<p>Tenant Manager and Reports Listing <b>" + $Version + "</b>"
 
$htmlreport = $htmlhead + $htmlbody1 + $htmltail
$htmlreport | Out-File $ReportFile  -Encoding UTF8
 
$ReportsList | Export-CSV -NoTypeInformation $CSVFileMembers
Clear-Host
Write-Host "All done. Output files are" $CSVFileMembers "and" $ReportFile

Attribution

Author

Office365itpros

Source

https://github.com/12Knocksinna/Office365itpros

Report managers and direct reports

Connect & set up

Run it

Add contacts to mailboxes

Add owners to apps

Add Teams to group expiration policy