Never Get Locked Out Of The Acl Again

I am sure like us you have had customers changing their ACL in their mail files
and ending up removing themselves as manager. Unless you already implement a
policy of adding an admin group to all ACL's, If consistant ACL is set there is
no way in to correct the ACL unless you have this little feature.
Create a database locally, ensureing that there is at least one document in the
database.

Then create an Agent with the following settings..

When should this agent be run? - On Schedule Hourly, and click the schedule
button to decrease the waiting time to 30 minutes.

Which Documents should it act on? - All documents in the database

Then in the design pane below, click on Script and then choose Initialise from
the Event drop down box.

Paste the following text in to this pane.

Sub Initialize
Dim db As NotesDatabase
Dim dbACL As NotesACL
Dim dbACLEntry As NotesACLEntry
'Set db = New NotesDatabase("", "mail\yyy.xxx") Replace yyy.xxx in the
line below with the correct filename
Set db = New NotesDatabase("", "mail\yyy.xxx.nsf")
Set dbACL = db.ACL
'Set dbACLEntry = New NotesACLEntry(dbACL, "ACLENTRY", ACLLEVEL_MANAGER)
Replace ACLENTRY in the line below to the entry you want added to the ACL
Set dbACLEntry = New NotesACLEntry(dbACL, "ACLENTRY", ACLLEVEL_MANAGER)
Call dbACL.Save
End Sub

Then save the agent.

When the time arises to use this code, you must switch to the server id of the
server which the server is going to run on. Edit the schedule to change the
server name to run on and change the filename of the database to run again.

Then switching back to your Admin ID replicate the database to the server.
After 5 minutes the ACL will have the new value in the ACL.
This was first published in November 2000

Dig deeper on Domino Resources - Part 5

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