Appuyer sur "Entrée" pour passer au contenu

Alerter les utilisateurs du changement de leur mot de passe

Le script VBS suivant permet d’afficher à l’ouverture de session une alerte aux utilisateurs en leur indiquant que le mot de passe expire bientôt.

Le script

' Days before to alert user 
QtDiasAviso = 7 
RedirectRdWeb = true
UrlRDWEB = "https://monserveur/RDWeb/Pages/fr-FR/password.aspx"
Message_alert = ""
 
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000 
 
Set oTranslate = CreateObject("NameTranslate") 
Set oNetwork = CreateObject("WScript.Network") 
Set wshell = WScript.CreateObject("WScript.Shell")

oTranslate.Init 3,"" 
oTranslate.Set 3, oNetwork.UserDomain & "\" & oNetwork.UserName 
 
Set objUserLDAP = GetObject _ 
  ("LDAP://"&oTranslate.Get(1)) 
intCurrentValue = objUserLDAP.Get("userAccountControl") 
 
' Check if user account have date to password expires 
If not intCurrentValue and ADS_UF_DONT_EXPIRE_PASSWD Then 
   
    ' Determine when password expires and calculate the days 
    ' Instead of PasswordExpirationDate, you can use the accountExpirationDate property, depending on the case 
    SenhaAlt = DateDiff("d",date,objUserLDAP.PasswordExpirationDate) 
 
    ' If password will expire 
    if (SenhaAlt <= QtDiasAviso) then
    Message_alert = "Votre mot de passe expire dans  " & SenhaAlt & " jour(s) " & vbCrLf & vbCrLf & "Merci de le changer dès que possible"
    
    if(RedirectRdWeb = true) then
      Message_alert = Message_alert & vbCrLf & vbCrLf & "Une page intranet va s'ouvrir pour vous permettre le changement"
    end if
    
     MsgBox Message_alert, vbExclamation,"Expiration de votre mot de passe"
    if(RedirectRdWeb = true) then
      wshell.Run UrlRDWEB
    end if
    end if 
 
end if

 

Personnalisation du script

ligne 2 :

QtDiasAviso = 7

Nombre de jour où le message commence à s’afficher

ligne 3 :

RedirectRdWeb = true

True : ouvre la page défini dans la variable UrlRDWEB quand l’utilisateur cliquer sur OK

False : Ferme la fenêtre quand l’utilisateur cliquer sur OK

ligne 4 :

UrlRDWEB = "https://monserveur/RDWeb/Pages/fr-FR/password.aspx"

Url de la page où l’utilisateur peut modifier son mot de passe.

ligne 29,32 :

Personnalisation du message qui s’affiche à l’utilisateur.

  1. MATRAY

    bonjour. Merci pour ce super script. Néanmoins pouvez vous nous dire dans quel fichier ajouter le script?
    merci

    • Romain

      Bonjour, merci 🙂
      Le script est à mettre dans un fichier vbs à exécuter à l’ouverture de session.
      Romain

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *