Last logon by external users

# Review required modules and connection steps before running.
# Connect to Microsoft Graph or Exchange Online as needed for this script.

param(
    [int] $LookbackDays = 90,
    [string] $StartDate = (Get-Date).AddDays(-$LookbackDays),
    [string] $EndDate = (Get-Date).AddDays(+1)
)
 
$Guests = (Get-AzureADUser -Filter "UserType eq 'Guest'" -All $True| Select Displayname, Mail, RefreshTokensValidFromDateTime | Sort RefreshTokensValidFromDateTime)
Write-Host $Guests.Count "guest accounts found. Checking last connections..."
$StartDate2 = (Get-Date).AddDays(-$LookbackDays)
$Active = 0
$EmailActive = 0
$Inactive = 0
$TeamsSpo = 0
 
ForEach ($G in $Guests) {
    Write-Host "Checking" $G.DisplayName
    $Recs = $Null
    $UserId = $G.Mail
    # Handle account whose guest invitation is not redeemed
    If ($Userid -eq $Null) {$UserId = "NullString"}
    $Recs = (Search-UnifiedAuditLog -UserIds $UserId -Operations UserLoggedIn, TeamsSessionStarted -StartDate $StartDate -EndDate $EndDate)
    If ($Recs -eq $Null) {
       Write-Host "No connections found in the last 90 days for" $G.DisplayName "created on" $G.RefreshTokensValidFromDateTime -Foregroundcolor Red
       # Check email tracking logs because guests might receive email from Groups. Account must be fully formed for the check. We can only go back 10 days
       If ($UserId -ne "NullString") {
          $EmailRecs = (Get-MessageTrace –StartDate $StartDate2 –EndDate $EndDate -Recipient $G.Mail)
            If ($EmailRecs.Count -gt 0) {
            Write-Host "Email traffic found for " $G.DisplayName "at" $EmailRecs[0].Received -foregroundcolor Yellow
            $Active++
            $EmailActive++ }}
    }
    Elseif ($Recs[0].CreationDate -ne $Null) {
       Write-Host "Last connection for" $G.DisplayName "on" $Recs[0].CreationDate "as" $Recs[0].Operations -Foregroundcolor Green
       $Active++
       $TeamsSpo++ }
 
}
Write-Host ""
Write-Host "Statistics"
Write-Host "----------"
Write-Host "Guest Accounts          " $Guests.Count
Write-Host "Active Guests           " $Active
Write-Host "Active on Teams and SPO " $TeamsSPO
Write-Host "Active on Email         " $EmailActive
Write-Host "InActive Guests         " ($Guests.Count - $Active)