Update user photos

Connect-MgGraph -Scopes Directory.ReadWrite.All -NoWelcome

Connect-MgGraph -Scopes Directory.ReadWrite.All -NoWelcome
 
# The value of $PhotoLocation should be changed to point to the place where user photos are stored
# We expect to find JPG files there named after the first and last names of the UPN assigned to accounts
# For example, the photo for Kim.Akers@Office365itpros.com is in Kim.Akers.jpg
$PhotoLocation = "c:\UserPhotos\"
If (!(Test-Path ($PhotoLocation))) {
    Write-Host "Can't find $PhotoLocation - please check if this is the right place to find user photos"; break }
$i=0
# Find Entra ID accounts to update
Write-Host "Finding user accounts"
[array]$Users = Get-MgUser -Filter "assignedLicenses/`$count ne 0 and userType eq 'Member'" `
    -ConsistencyLevel eventual -CountVariable Records -All
Clear-Host
$ProgDelta = 100/($Users.Count); $CheckCount = 0; $UserNumber = 0
ForEach ($User in $Users) {
   $UserNumber++
   $UserStatus = $User.DisplayName + " ["+ $UserNumber +"/" + $Users.Count + "]"
   Write-Progress -Activity "Checking photo for" -Status $UserStatus -PercentComplete $CheckCount
   $CheckCount += $ProgDelta
   # Is EXODS happy with the user photo information for the account?
   $CheckPhoto = Get-MgUserPhoto -UserId $User.Id -ErrorAction SilentlyContinue
   If (!$CheckPhoto) { # No photo found in user account
      $UserPhoto = $PhotoLocation + $User.UserPrincipalName.Split("@")[0]+".jpg"
      If (Test-Path $UserPhoto) { # Update the photo because we have a file
        Write-Host "Updating photo for" $User.DisplayName -Foregroundcolor Red
        Set-MgUserPhotoContent -UserId $User.Id -Infile $UserPhoto
        $i++; Clear-Host
      } Else { # No photo file available
        Write-Host "No photo file available for" $User.DisplayName }
    }
}
Write-Host "All done. $i User Photos updated"