VBS: rendre vos utilisateurs autonomes (expiration du mot de passe, compte verrouillé)

Marre que vos utilisateurs ne sachent pas quand expire leur mot de passe windows sur le domaine ?
ou que leur compte soit verrouillé ou non.

Voici deux petits scripts en VBS qui iront chercher dans l'annuaire LDAP pour leur donner les informations.

Quand expire mon mot de passe.vbs

Const MIN_IN_DAY = 1440
Const SEC_IN_MIN = 60

On Error Resume Next
Dim objSysInfo, objUser
Set objSysInfo = CreateObject("ADSystemInfo")

' Currently logged in User
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)

intAge = Int(Now - objUser.PasswordLastChanged)

'INDIQUEZ LE NOM DE VOTRE DOMAINE sur la ligne ci-dessous
Set objDomain = GetObject("WinNT://DOMAINE")
intMaxPwdAgeSeconds = objDomain.Get("MaxPasswordAge")

intMaxPwdAgeSeconds=((intMaxPwdAgeSeconds/SEC_IN_MIN)/MIN_IN_DAY)
msgbox(objUser.displayName & vbCrLf & "----------------------" & vbCrLf & "Votre mot de passe expire dans : " & intMaxPwdAgeSeconds-intAge & " jours" & vbCrLf & "Soit le : " & objUser.PasswordLastChanged + intMaxPwdAgeSeconds-intAge)

[Edit:17/05/18]changez la dernière ligne du script "quand expire mon mot de passe" par celle-ci:

msgbox(objUser.displayName & vbCrLf & "----------------------" & vbCrLf & "Votre mot de passe expire dans : " & intMaxPwdAgeSeconds-intAge & " jours" & vbCrLf & "Soit le : " & Now + intMaxPwdAgeSeconds-intAge)

Mon compte est-il verrouillé.vbs

'On Error Resume Next
Dim objSysInfo, objUser, status
Set objSysInfo = CreateObject("ADSystemInfo")

' Currently logged in User
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
    If objUser.IsAccountLocked = 0 Then
        status=("Votre compte n'est pas bloqué")
        Else
    status=("Votre compte est bloqué")
    End If



msgbox(objUser.displayName & vbCrLf & "----------------------" & vbCrLf & status)

Set objUser = Nothing
Set NewPassword = Nothing

Wscript.Quit

Posé sur un serveur avec accès en lecture seul à tous les utilisateurs du domaine, et communiquez !!!!