Hi,
I need to get a list of user accounts that have expiry dates set and have
expired.
I have tried customising this vb script, obtained from the MS Technet site,
no error generated but also no output:
___________________________________________________________________
On Error Resume Next
Set objUser = GetObject _
("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
dtmAccountExpiration = objUser.AccountExpirationDate
If Err.Number = -2147467259 Or dtmAccountExpiration = "1/1/1970" Then
WScript.Echo "No account expiration date specified"
Else
WScript.Echo "Account expiration date: " & objUser.AccountExpirationDate
End If
___________________________________________________________________
Does anyone have a script that works ?
Does anyone know if there is a LDAP string that can be put into an ADUC
Query to list expired user accounts ?
Our A/D servers are running Win2000 SP4
We are using ADUC version 5.2.3790.0
Any help/advice much appreciated.
Tom Small
Middlesex University
London UK.
Bookmarks