| ||
'Get UserManager.Server object Dim UM:Set UM = CreateObject("UserManager.Server") Wscript.Echo toS("Account",25) & "Auth flags" 'List of users and its operator priviledges Dim User For Each User In UM.Users Wscript.Echo toS(User.Name,25) & User.AuthFlags Next Function toS(byval W, Cols) W = "" & W On Error Resume Next W = W & Space(Cols-Len(W)) toS = W End Function |