Account for one week

Examples

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

  '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

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.