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 |
Properties of the user account, and methods for creating, deleting and selecting users.
ActiveX UserManager is easy to use COM component with classes to create, delete and manage local and remote user accounts, groups, servers and domains in the Windows NT (2000/XP) environment. You can simple work with user accounts and groups from VBA, VBS/JS, ASP and T-SQL programming environment.
© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: info@pstruh.cz