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
%END REM
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 " &
pathofdb
Set entry = New NotesACLEntry( acl, "Admin", ACLLEVEL_MANAGER )
Call acl.Save
End If
Set db = dbdir.GetNextDatabase
Wend
End Sub

This was first published in November 2000

Dig Deeper

0 comments

Oldest 

Forgot Password?

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

Your password has been sent to:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com'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 ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close