ACL agent
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.
Software/Hardware used:
Software/Hardware used:
ASKED:
November 22, 2006 9:09 AM
UPDATED:
November 22, 2006 11:10 AM
Answer Wiki:
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
To see all answers submitted to the Answer Wiki: View Answer History.
RSS - Discussions Help
Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
