Get date/time when the password was last changed.

Examples

Get date/time when the password was last changed.
Dim S, User, Out 'Get UserManager.Server object Set S = CreateObject("UserManager.Server") S.Select "Someserver" 'List primary domain user accounts. Out = Out & "Name" & vbtab & "Last logon" & vbtab & "Password last changed" & vbCrLf For Each User In S.Users Out = Out & User.Name & vbtab & User.LastLogon & vbTab & CDate(Now() - User.PasswordAge) & vbCrLf Next Wscript.Echo Out

  Dim S, User, Out

  'Get UserManager.Server object
  Set S = CreateObject("UserManager.Server")
  S.Select "Someserver"

  'List primary domain user accounts.
  Out = Out & "Name" & vbtab & "Last logon" & vbtab & "Password last changed" & vbCrLf

  For Each User In S.Users
    Out = Out & User.Name & vbtab & User.LastLogon & vbTab & CDate(Now() - User.PasswordAge) & vbCrLf
  Next

  Wscript.Echo Out

Other links for Get date/time when the password was last changed.

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.