ACL agent

Tags:
Lotus Domino
I'm looking for the best method to add a single group listing to every db ACL on our server(We have over 200 dbs). Anyone done this before? Thanks in advance.

Answer Wiki

Thanks. We'll let you know when a new response is added.

I have agents that do this. They work, but are *very* ugly. I’m sure you can do better. These are the salient examples from Designer help.

*Getting All Databases on a Server*
1. This LotusScript agent gets all the databases on the server Snapper.
Sub Initialize
Dim dbdir As New NotesDbDirectory(“Snapper”)
Dim db As NotesDatabase
Set db = dbdir.GetFirstDatabase(DATABASE)
While Not(db Is Nothing)
Msgbox db.Title, , db.FileName
Set db = dbdir.GetNextDatabase
Wend
End Sub

*Adding new group to ACL and assigning access*
This script uses New to add the “Terminations” group to the current database, and assign it No Access.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
If Not ( db.IsOpen ) Then
Call db.Open( “”, “” )
End If
Set acl = db.ACL
Set entry = New NotesACLEntry _
( acl, “Terminations”, ACLLEVEL_NOACCESS )
Call acl.Save

Discuss This Question:  

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following