List of account full names

Examples

List of account full names
'Get UserManager.Server object Dim UM:Set UM = CreateObject("UserManager.Server") 'Add a test user UM.Users.Add "~TestUser", "1TestPassword" 'Set codepage for the user UM.Users("~TestUser").FullName = "This is test account" 'List of user accounts and its full names Wscript.Echo toS("Account",25) & "Full name" Dim User For Each User In UM.Users Wscript.Echo toS(User.Name,25) & User.FullName Next 'Delete the test account UM.Users("~TestUser").Delete Function toS(byval W, Cols) W = "" & W On Error Resume Next W = W & Space(Cols-Len(W)) toS = W End Function

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

  'Set codepage for the user
  UM.Users("~TestUser").FullName = "This is test account"

  'List of user accounts and its full names
  Wscript.Echo toS("Account",25) & "Full name"
  Dim User
  For Each User In UM.Users
    Wscript.Echo toS(User.Name,25) & User.FullName
  Next

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


  Function toS(byval W, Cols)
    W = "" & W
    On Error Resume Next
    W = W & Space(Cols-Len(W))
    toS = W
  End Function

Other links for List of account full names

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.