Password Expiry check

[Kenneth Keeley]

Hi,
How can I do the below code in ASP.Net as I wish to provide an indication
to my staff on our Intranet site of when they will need to change there
password.

On Error Resume Next

Const ADS_UF_DONT_EXP IRE_PASSWD = &h10000
Const E_ADS_PROPERTY_ NOT_FOUND = &h8000500D
Const ONE_HUNDRED_NAN OSECOND = .000000100
Const SECONDS_IN_DAY = 86400

Set objUser =
GetObject("LDAP ://CN=myerken,OU=m anagement,DC=fa brikam,DC=com")

intUserAccountC ontrol = objUser.Get("us erAccountContro l")
If intUserAccountC ontrol And ADS_UF_DONT_EXP IRE_PASSWD Then ' LINE 11
WScript.Echo "The password does not expire."
WScript.Quit
Else
dtmValue = objUser.Passwor dLastChanged
If Err.Number = E_ADS_PROPERTY_ NOT_FOUND Then ' LINE 16
WScript.Echo "The password has never been set."
WScript.Quit
Else
intTimeInterval = Int(Now - dtmValue)
WScript.Echo "The password was last set on " & _
DateValue(dtmVa lue) & " at " & TimeValue(dtmVa lue) & vbCrLf & _
"The difference between when the password was last" & vbCrLf & _
"set and today is " & intTimeInterval & " days"
End If

Set objDomain = GetObject("LDAP ://DC=fabrikam,DC= com")
Set objMaxPwdAge = objDomain.Get(" maxPwdAge")

If objMaxPwdAge.Lo wPart = 0 Then
WScript.Echo "The Maximum Password Age is set to 0 in the " & _
"domain. Therefore, the password does not expire."
WScript.Quit
Else
dblMaxPwdNano = _
Abs(objMaxPwdAg e.HighPart * 2^32 + objMaxPwdAge.Lo wPart)
dblMaxPwdSecs = dblMaxPwdNano * ONE_HUNDRED_NAN OSECOND ' LINE 37
dblMaxPwdDays = Int(dblMaxPwdSe cs / SECONDS_IN_DAY) ' LINE 38
WScript.Echo "Maximum password age is " & dblMaxPwdDays & " days"

If intTimeInterval >= dblMaxPwdDays Then
WScript.Echo "The password has expired."
Else
WScript.Echo "The password will expire on " & _
DateValue(dtmVa lue + dblMaxPwdDays) & " (" & _
Int((dtmValue + dblMaxPwdDays) - Now) & " days from today)."
End If
End If
End If

Code snippets appreciated!
Kenneth