List accounts with expiration info

Examples

List accounts with expiration info
'Get UserManager.Server object Dim UM:Set UM = CreateObject("UserManager.Server") Dim Out Out = Out & "Expires and password changed info:" & vbCrLf Out = Out & toS("Account",25) & toS("Expires", 20) & "Password last changed" & vbCrLf 'List of disabled user accounts Dim User For Each User In UM.Users Out = Out & toS(User.Name,25) & toS(User.Expires,20) & _ CDate(Now() - User.PasswordAge) & vbCrLf Next Wscript.Echo Out Function toS(byval W, Cols) W = "" & W On Error Resume Next W = W & Space(Cols-Len(W)) toS = W End Function

  'Get UserManager.Server object
  Dim UM:Set UM = CreateObject("UserManager.Server")
  Dim Out

  Out = Out & "Expires and password changed info:" & vbCrLf
  Out = Out & toS("Account",25) & toS("Expires", 20) & "Password last changed" & vbCrLf
  'List of disabled user accounts
  Dim User
  For Each User In UM.Users
    Out = Out & toS(User.Name,25) & toS(User.Expires,20) & _
      CDate(Now() - User.PasswordAge) & vbCrLf
  Next

  Wscript.Echo Out

  Function toS(byval W, Cols)
    W = "" & W
    On Error Resume Next
    W = W & Space(Cols-Len(W))
    toS = W
  End Function

Other links for List accounts with expiration info

UserManager.User

Properties of the user account, and methods for creating, deleting and selecting users.

Easy to use classes to create, delete and manage local and remote user accounts, groups, servers and domains in the Windows NT (2000/XP) environment. Simple work with user accounts and groups from VBA, VBS/JS, ASP and T-SQL.