<HTML>
<BODY>

<%
' Display the Maximum Password Age value (in days) on the PDC
Set AU = Server.CreateObject("Persits.AspUser")

Set PDC = AU.Servers( AU.DomainController )
If PDC.MaxPasswordAge = -1 Then
Response.Write "Password never expires."
Else
Response.Write "Max Password Age = " & PDC.MaxPasswordAge / 24 / 3600 & " days."
End If

%>

</BODY>
</HTML>