Home > Domino Tips > Administrator > ACL > Never Get Locked Out Of The Acl Again
Domino Tips:
EMAIL THIS
 TIPS & NEWSLETTERS TOPICS 

ACL

Never Get Locked Out Of The Acl Again


Paul Woolf
04.28.2000
Rating: -3.83- (out of 5)


Digg This!    StumbleUpon Toolbar StumbleUpon    Bookmark with Delicious Del.icio.us   


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 N

Digg This!    StumbleUpon Toolbar StumbleUpon    Bookmark with Delicious Del.icio.us   


RELATED CONTENT
ACL
Display Lotus Notes user group membership details in a tree view
Update the ACL from the Roles view with LotusScript
Controlling access to the Domino Directory with Extended ACL
Security expert offers Notes/Domino downloads
Seven tips to strengthen your Domino e-mail security
Meet the Extended ACL
How to remove "Enforce uniform/consistent access" flag even without access to the database!
Managing groups entries in ACL
Retrieve documents from Notes database, which are locked by Readers field
Bulk ACL fixer

RELATED RESOURCES
2020software.com, trial software downloads for accounting software, ERP software, CRM software and business software systems
Search Bitpipe.com for the latest white papers and business webcasts
Whatis.com, the online computer dictionary


otesACL
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.



Domino & Lotus Notes Security Solutions: Authentication, Antispam, Encryption and Antivirus
HomeTopicsITKnowledge ExchangeTipsAsk the ExpertsMultimediaWhite PapersDomino IT Downloads
About Us  |  Contact Us  |  For Advertisers  |  For Business Partners  |  Site Index  |  RSS
SEARCH 
TechTarget provides technology professionals with the information they need to perform their jobs - from developing strategy, to making cost-effective purchase decisions and managing their organizations' technology projects - with its network of technology-specific websites, events and online magazines.

TechTarget Corporate Web Site  |  Media Kits  |  Site Map




All Rights Reserved, Copyright 1999 - 2009, TechTarget | Read our Privacy Policy
  TechTarget - The IT Media ROI Experts