Workstations Property, User class

Description

Workstations from which the user can log on. As many as eight workstations can be specified; the names must be separated by commas (,). A null string indicates that there is no restriction.

Syntax

vWorkstations = User.Workstations
User.Workstations = vWorkstations

Returns

String

Examples

List of accounts and logon workstations

  'Get UserManager.Server object
  Dim UM:Set UM = CreateObject("UserManager.Server")
  
  'Add a test user
  Dim User
  Set User = UM.Users.Add("~TestUser", "1TestPassword")

  'Test user cannot change password
  User.Workstations = "Server,Test"
  
  'List of accounts and password info
  Dim Out: Out = "Logon workstations info:" & vbCrLf
  Out = Out & toS("Account",20) & toS("Workstations", 15) & vbCrLf
 
  For Each User In UM.Users
    Out = Out & toS(User.Name,20) & toS(User.Workstations,15) & vbCrLf
  Next

  Wscript.Echo Out

  'Delete the test account
  UM.Users("~TestUser").Delete

  Function toS(byval W, Cols)
    W = "" & W: If W = "" Then 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.

Workstations