| ||
'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 |