Sujet : Script VBS - obtenir la date de d'expiration de mot de passe d'un utilisateur Active Directory
Voici un exemple de code qui utilise ADSI LDAP pour obtenir la date d'expiration de mot de passe d'un utilisateur Active Directory :
Dim oDomain
Dim oUser
Dim maxPwdAge
Dim numDays
strDomainDN = "domaine"
strUserDN = strDomainDN & "/CN=administrateur,CN=Users,DC=domaine,DC=local"
Set oDomain = GetObject("LDAP://" & strDomainDN)
Set maxPwdAge = oDomain.Get("maxPwdAge")
numDays = CCur((maxPwdAge.HighPart * 2 ^ 32) + _
maxPwdAge.LowPart) / CCur(-864000000000)
WScript.Echo "Maximum Password Age: " & numDays
Set oUser = GetObject("LDAP://" & strUserDN)
whenPasswordExpires = DateAdd("d", numDays, oUser.PasswordLastChanged)
WScript.Echo "Password Last Changed: " & oUser.PasswordLastChanged
WScript.Echo "Password Expires On: " & whenPasswordExpires
Set oUser = Nothing
Set maxPwdAge = Nothing
Set oDomain = Nothing
WScript.Echo "Done"
Article de référence : http://support.microsoft.com/kb/323750
Mots : exemple , code , script , vbs , obtenir , date , expiration , mot de passe , utilisateur , active directory , adsi , ldap , ouverture , session
