MOTOBIT.COM - ASP upload, IIS utility List of accounts and privilege info

  'Get UserManager.Server object
  Dim UM:Set UM = CreateObject("UserManager.Server")
  
  'List of accounts and privilege info
  Dim Out: Out = "Privilege info:" & vbCrLf
  Out = Out & toS("Account",20) & toS("Privilege", 15) & vbCrLf
 
  For Each User In UM.Users
    Out = Out & toS(User.Name,20) & toS(User.Privilege,15) & vbCrLf
  Next

  Wscript.Echo Out

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