Local Accounts and Windows NT 4.0 Accounts

List Account Expiration Dates in a Windows NT 4.0 Domain








' List Account Expiration Dates in a Windows NT 4.0 Domain


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."
   Else
       Wscript.Echo objUser.Name, objUser.AccountExpirationDate
   End If
Next



search for scripts

VbsEdit contains all these sample scripts!

Download Now!