MOTOBIT.COM - ASP upload, IIS utility List of users, CodePage and CountryCode

  'Get UserManager.Server object
  Dim UM:Set UM = CreateObject("UserManager.Server")

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


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