ACL
Never Get Locked Out Of The Acl Again
Paul Woolf
04.28.2000
Rating: -3.83- (out of 5)
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.
Code
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("", "mailyyy.xxx") Replace yyy.xxx in the
line below with the correct filename
Set db = New NotesDatabase("", "mailyyy.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.
|
|
Rate this Tip
|
To rate tips, you must be a member of SearchDomino.com.
Register now
to start rating these tips. Log in if you are already a member.
|
DISCLAIMER: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.
|
|
|
|
|
|
|
