ICT-Hotlist Thema

###############################################################################################
# This PowerShell script finds all the direct reports of a manager in the Active Directory
# (AD DS) services. It can be run from any Active Directory connected Windows computer.
# The output is directReport's name and Title seperated with a tab so it can be copied and 
# pasted in Excel for example.
#
# (C)Copyrights 2019 - 2020 vanSoest.it by J.P.G. van Soest.
###############################################################################################

#Clear the screen using the good old DOS Command
cls
# Show some information to the user
"This PowerShell script displays all the Direct Reports of a manager"
"(C)Copyrights 2019 - 2020 vanSoest.it by J.P.G. van Soest."
# Get the manager user account
$Manager = Read-Host -Prompt 'Enter the Windows usercode of the manager'
# Try to resolve the usercode and get all the directReports
Try{
# Clear the screen using DOS Command"
    cls
# Resolve the usercode and get all the directReports
    $Users = Get-ADUser -Identity $manager -Properties directReports | Select -ExpandProperty directReports

# Get the number of results
    $NumberOfUsers = $Users | measure
# Select if there are any directReports
    If($NumberOfUsers.count -ne 0){ 
# Display the number of directReports and format output header
        $NumberOfUsers.count.ToString() + " Direct reports of manager: $Manager"
# Loop through all the directReports to get the Name and Title properties
        ForEach($User in $Users)
# There are Direct Reports, List Name and Title properties
        {
            $ADUser = Get-ADUser $User -Properties *
            $ADUser.Name + "`t" + $ADUser.Title
        }
    }
# The number of results equals 0. Display message
    Else {"No Direct reports of manager: $Manager found"}
}
Catch { "An error occurred: " +  $_.Exception.Message + "`n" + $_.Exception.ItemName }