How do I extract the ACL with assigned roles for analysis?

I need to extract the ACL along with assigned roles for each entry.  I found some previous answers here, with links to the sandbox but that has been archived.

Is there a way?
jkee54Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

behendersonCommented:
The below code is written out free hand and may contain errors.. but you should be able to get the idea.. you put this code into a lotusScript agent in the database to get the current acl as a text file in the c directory ACL.txt


Dim session as new notesSession
dim db as notesdatabase
dim acl as NotesACL
dim entry as NotesACLEntry
dim vx as Variant

fileNum% = Freefile()
fileName$ = "c:\ACL.txt"

Open fileName$ For Output As fileNum%

set db = session.currentDatabase
Set acl = db.ACL
Set entry = acl.GetFirstEntry
do while not entry is nothing
PRINT#fileNum%, entry.name
Forall r In entry.Roles
Print #fileNum%, entry.Name & " - " & r
End Forall
loop
0
behendersonCommented:
forgot 1 line bottom 2 lines should be changed to these 3 lines

End Forall
Set entry = acl.GetNextEntry( entry )
Loop
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
jkee54Author Commented:
I had to fix the first PRINT line but then t worked like a charm! Thanks!
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Lotus IBM

From novice to tech pro — start learning today.