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