VBS : AD expiration password

Bonjour,

Ci-joint un script qui rappellera selon un compte la durée maximum de vie d'un mot de passe, le nombre de jours écoulées et restant ainsi que les date de dernier changement et de prochain changement.

Const MIN_IN_DAY = 1440
Const SEC_IN_MIN = 60

CN="CN=NOM Prenom, OU=OU1,OU=Utilisateurs,OU=OU2, DC=microsoft,DC=com"

Set objUser = GetObject("LDAP://" & CN & "")

intAge = Int(Now - objUser.PasswordLastChanged)

Set objDomain = GetObject("WinNT://DOMAINE")
intMaxPwdAgeSeconds = objDomain.Get("MaxPasswordAge")

intMaxPwdAgeSeconds=((intMaxPwdAgeSeconds/SEC_IN_MIN)/MIN_IN_DAY)

msgbox(intMaxPwdAgeSeconds & "-" & intAge & "= "& intMaxPwdAgeSeconds-intAge & " jours avant expiration du mot de passe" & vbCrLf & objUser.PasswordLastChanged & " ---- " & objUser.PasswordLastChanged + intMaxPwdAgeSeconds-intAge )

Ne pas omettre de changer le CN selon l'utilisateur, et le DOMAINE par Microsoft ou votre domaine