Contact Info

Crumbtrail » Administration » Scripts » VBScript » Custom script

List Account Expiration Dates in a Windows NT 4.0 Domain

You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.


On Error Resume Next

Set objDomain = GetObject("WinNT://fabrikam,domain")
objDomain.Filter = Array("User")

For Each objUser In objDomain
   If IsNull(objUser.AccountExpirationDate) Then
       Wscript.Echo objUser.Name, "Account has no expiration date."
       Wscript.Echo objUser.Name, objUser.AccountExpirationDate
   End If