MOTOBIT.COM - ASP upload, IIS utility 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