How to check the No Of Days left for Password Expiry

  • Thread starter Thread starter Sudeep
  • Start date Start date
S

Sudeep

Hi all,

I wanted to design a webpage to find out the no of days left for password
expiry for the users in Active Directory .


regards,

Sudeep
 
Querying User Password Age Using a VBScript Active Server Page

Dim Group
Dim GroupName
Dim GroupDomain
Dim User
GroupDomain = "Target_Domain"
GroupName = "Domain Admins"
Set Group = GetObject("WinNT://" & GroupDomain & "/" & GroupName & ",group")
For Each Member In Group.Members
Set User = GetObject("WinNT://" & GroupDomain & "/" & Member.Name &
",user")
If User.Get("PasswordAge") > 2592000 Then
If (User.Get("UserFlags") And &H10000) = 0 Then
Response.Write Member.Name
End If
End If
Next
 
Back
Top