Expires Property, User class

Description

Specifies when the account will expire.

Syntax

vExpires = User.Expires
User.Expires = vExpires

Returns

Date

Remarks

A value o 0 indicates that the account never expires.

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

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

Methods of User class

AddToGroup, AddToLocalGroup, Delete, RemoveFromGroup, RemoveFromLocalGroup, UserAdd

Properties of User class

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

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.