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  " &amp; SenhaAlt &amp; " jour(s) " &amp; vbCrLf &amp; vbCrLf &amp; "Merci de le changer dès que possible"
    
    if(RedirectRdWeb = true) then
      Message_alert = Message_alert &amp; vbCrLf &amp; vbCrLf &amp; "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.



Related Posts


Ferme RDS ajouter un hôte à une collection
Dans cet article, je vais vous expliquer comment ajouter un hôte de session de Bureau à distance dans une collection. L'article fait suite au poste suivant : Mise en place d’une ferme RDS sous Windows 2012R2 / 2016

Ferme RDS : configuration du service broker en haute disponibilité
Pour faire suite à l'article : Déployer une ferme RDS Windows 2012R2/2016/2019, nous allons voir dans ce tutoriel comment configurer le service broker en haute disponibilité. Cette configuration est optimisée pour les clients qui utilisent comme adre

Galinette cendrée : outil d’administration des fermes RDS 2012R2/2016
Galinette cendrée est un utilitaire qui permet de remplacer TSAdmin/ Gestionnaire de service de bureaux à distance sur les fermes de serveur RDS 2012/2012R2/2016. Pour fonctionner Galinette cendrée à besoin que le rôle broker soit installé. Fonctionn

2 réflexions au sujet de “Alerter les utilisateurs du changement de leur mot de passe”