Specifies when the account will expire.
vExpires = User.Expires
User.Expires = vExpires
A value o 0 indicates that the account never expires.
Account for one week
'Get UserManager.Server object Dim UM:Set UM = CreateObject("UserManager.Server") 'Add a test user UM.Users.Add "~TestUser", "1TestPassword" 'This account expires after 7 days. UM.Users("~TestUser").Expires = Date+7
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
AddToGroup, AddToLocalGroup, Delete, RemoveFromGroup, RemoveFromLocalGroup, UserAdd
AuthFlags, BadPasswordCount, CodePage, Comment, CountryCode, Disabled, Expires, Flags, FullName, Groups, HomeDir, HomeDirDrive, ID, LastLogOff, LastLogon, LocalGroups, LockOut, LogonHours, MaxStorage, Name, NumOfLogons, Password, PasswordAge, PasswordCannotChange, PasswordExpired, PasswordNeverExpires, PasswordNotRequired, PrimaryGroupID, Privilege, Profile, Ras, ScriptPath, Server, UserComment, Workstations
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: firstname.lastname@example.org