Suppression des adresses e-mails obsolètes

Voici comment supprimer des adresses e-mails obsolètes :

Import du Module Active Directory

Import-Module ActiveDirectory

Déclaration des domaines à supprimer des alias

$DomainsToDelete = "@domaine1.fr", "@domaine2.com", "@domaine3.fr"

Récupération de tous les utilisateurs présents dans une OU donnée et stockage dans une variable

$AllSelectedUsers = Get-ADUser -Filter * -SearchBase "OU=MON OU,DC=Domaine,DC=local" -Properties Mail,proxyaddresses

Pour chaque utilisateur présent dans l’OU, le script vérifiera si une ou plusieurs de ces adresses e-mails appartiennent à un des domaines que l’on souhaite supprimer

$AllSelectedUsers| ForEach-Object{
  $strUserPrimarySMTPAddress = $_.Mail
  $strUserIdentity = $_.SamAccountName
  $strUserAllProxyAddresses = $_.ProxyAddresses
   Foreach ($Domain in $DomainsToDelete){
      Foreach ($ProxyAddress in $strUserAllProxyAddresses){
         If ($ProxyAddress -like "*$Domain"){
           Try {
             Set-ADUser -Identity $strUserIdentity -Remove @{proxyaddresses=$ProxyAddress} -ErrorAction Stop
           }
           Catch {
             $strUserIdentity
           }
          } 
       }
    }
}

 

 

Leave a Reply