Adding Groups To Acl

Generally, Administrators need to add certain Groups in the ACL of all the
databases especially mail files. This might be a handy tool for them. This
script can be modified to handle other access levels.. for e.g. adding
Termination Group to all databases with no access.
%REM Adding group to ACL as manager in all the databases in a given directory
Sub Click(Source As Button)
Dim dbdir As New NotesDbDirectory("")
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = dbdir.GetFirstDatabase(DATABASE)
pathtogo = Inputbox$("Please specify full path ","Specify Path of
databases", "d:\notes\data\mail")
While Not(db Is Nothing)
If Not ( db.IsOpen ) Then
Call db.Open( "", "" )
End If
Set acl = db.ACL
pathofdb = db.filepath
If pathtogo="" Then Exit Sub

leng= Len(Cstr(pathtogo))
ckeckstr = Left(pathofdb,leng)
If ckeckstr=pathtogo Then
Print "Please wait ..Adding Admin to " &
Set entry = New NotesACLEntry( acl, "Admin", ACLLEVEL_MANAGER )
Call acl.Save
End If
Set db = dbdir.GetNextDatabase
End Sub

Dig Deeper on Domino Resources - Part 2

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.




  • iSeries tutorials's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...