Enoie mail avant le reset du mot de passe

Répondre
hmi
Site Admin
Messages : 105
Enregistré le : sam. févr. 04, 2017 10:33 am

Enoie mail avant le reset du mot de passe

Message par hmi » dim. avr. 15, 2018 2:27 pm

$datedefin = 30
$mails = Import-Csv C:\temp\xxxxxxxxxxx.csv
ForEach ($mail in $mails){
$UserPrincipalName = $($mail.UserPrincipalName)
$datechange = $($mail.LastPasswordChangeTimestamp)
$age = $($mail.PasswordAge)

Write-host $UserPrincipalName $age


$age = $age.substring(0,2)
$endday = $age - $datedefin
$SMTPServer = “mail.xxxxx.ch”
$SMTPPort = “587”
$Username = “xxx@xxxxx.ch
$Password = “xxxxxx"
$to = $UserPrincipalName
$subject = “Change your password, please”
$message = New-Object System.Net.Mail.MailMessage
$message.subject = $subject
$message.to.add($to)
$message.from = $username
$message.Body = "Hi, Votre mot de passe va être échue dans $endday jours, changer votre mote de passe maintenant en cliquant ici https://login.microsoftonline.com "
$smtp = New-Object System.Net.Mail.SmtpClient($SMTPServer, $SMTPPort);
$smtp.EnableSSL = $true
$smtp.Credentials = New-Object System.Net.NetworkCredential($Username, $Password);
$smtp.send($message)
}

Répondre