Script to Pull out Access Manager Info

[cogdev]

I have seen these somewhere before, but Can't seem to get my hands on any right now. I am looking for a script that will pull out the Classes and Users in Access manager. I am using version 7 and ADS.

Thanks

 

[griffindm]

Don't have quick access to IWR today, but as I recall there is a batch language available for Access Manager to load and extract user and user class information. The Docs and Help Files have more information.

Regards,

Dave Griffin
The Decision Support Group
Reporting Consulting with Cognos BI Tools
"Magic with Data"
Want good answers? Read FAQ20-2863 first!

http://www.decisionsupportgroup.com

 

[rikB]

try this one :


' DumpUsr: Created 01-05-00 By: Stephen Brown

' Displays User classes and Users from a namespace.
' Output is formatted as a comma delimited list to screen or file.
' File is specified in the main.


OPTION EXPLICIT

Declare Sub User_classes(UsrClass as object)
Declare Sub Display_Users(Usrlist as object)

Sub Main ()

DIM objauthapp as object
DIM objauthdoc as object
DIM objuserclass as object
DIM msgtext as string

On Error Goto Errhdlr1

Set objauthapp = CreateObject("Authenticator2.Application&quot
Set objauthdoc = objauthapp.Documents.OpenWithBasicSignon ("default", "Administrator", "", "Root User Class&quot

Set objuserclass = objAuthDoc.RootUserClass

Open "c:\Temp\Userclass.txt" for append as #1
Call User_classes(objuserclass)
close #1


objauthapp.quit

Set objuserclass = Nothing
Set objauthdoc = Nothing
Set objauthapp = Nothing

exit sub

Errhdlr1:msgtext="Error " & Err & ": " _
& Error$ & "occurred."
Msgbox msgtext

End Sub

' ++++++++++++++++++++++++++++++++++++++++++++++++

' Display_Users function: 01-05-00 By Stephen Brown
' All users are output to file or screen (Comma delimited)
' for the User class object passed as a parameter.
' Adjusted bu ERID on 06-08-01
' Changed output from "Userclass,user1,user2,...,usern" to
' "Userclass;user1"
' "Userclass;user2"


Sub Display_Users(Usrlist as object)

Dim x as Integer
Dim objuser as object

For x = Usrlist.Users.count to 1 step -1

Set objuser = Usrlist.users.item(x)

write #1, Usrlist.name & chr$ (59) & objuser.name & chr$ (59) & objuser.firstname & chr$ (59) & objuser.lastname

next x

' MsgBox "Name: " & Usrlist.name & chr$ (44) & chr$ (10) _
' & "Users: " _
' & userlist & chr$ (44) & chr$(10)

Set objuser = Nothing

End Sub

'+++++++++++++++++++++++++++++++++++++++++++++++++++
' User_classes function: 01-05-00 By Stephen Brown

' Navigates the Userclass heirarchy of Namespace
'
'+++++++++++++++++++++++++++++++++++++++++++++++++++

Sub User_classes(UsrClass as object)

Dim y as Integer
Dim objUsrclass as object
Dim Objmaster as object
Dim Userclasscount as Integer

Set objUsrclass = UsrClass
Set objmaster = Usrclass
Userclasscount = objUsrclass.userclasses.count
Call Display_Users(objUsrclass)

If objUsrclass.userclasses.count <> 0 then
For y = Userclasscount to 1 step -1

Set objUsrclass = objmaster.userclasses.Item
Call User_classes(objUsrclass)

Next y
End If

Set objUsrclass = Nothing
Set objmaster = Nothing

End Sub

 

[cogdev]

Hey ribk

I am using ADS running on a different machine, how can I specify that location?

Thanks

 

[rikB]

I don't know. I got this code from cognos support, so I think it's best to ask them.