Set / list user code page

Examples

Set / list user code page
'Get UserManager.Server object Dim UM:Set UM = CreateObject("UserManager.Server") Wscript.Echo toS("Account",25) & "CodePage" 'Add a test user UM.Users.Add "~TestUser", "1TestPassword" 'Set codepage for the user UM.Users("~TestUser").CodePage = 1250 'List of users and its CodePage Dim User For Each User In UM.Users Wscript.Echo toS(User.Name,25) & User.CodePage Next 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")
  
  Wscript.Echo toS("Account",25) & "CodePage"

  'Add a test user
  UM.Users.Add "~TestUser", "1TestPassword"

  'Set codepage for the user
  UM.Users("~TestUser").CodePage = 1250

  'List of users and its CodePage
  Dim User
  For Each User In UM.Users
    Wscript.Echo toS(User.Name,25) & User.CodePage
  Next


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

Other links for Set / list user code page

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.