Manage Learn to apply best practices and optimize your operations.

Remove consistent ACL flag

The following code for a button removes the flag and allows me to open the database with manager rights.

From time to time I receive databases that have enforce consistent ACL switched on.

The following code for a button removes the flag and allows me to open the database with manager rights.

Event (Declarations): 
Declare Function NSFDbOpen Lib "nnotes.dll" (Byval dbName As String, hDB As Long) As Integer 
Declare Function NSFDbClose Lib "nnotes.dll" (Byval hDB As Long) As Integer 
Declare Function NSFDbReadACL Lib "nnotes.dll" (Byval hDB As Long, hACL As Long) As Integer 
Declare Function ACLSetFlags Lib "nnotes.dll" (Byval hACL As Long, Byval Flags As Long ) As Integer 
Declare Function NSFDbStoreACL Lib "nnotes.dll" (Byval hDB As Long, Byval hACL As Long, Byval ObjectID As Long, Method As Long) As Integer 


Event Click: 
Dim hDB As Long, hACL As Long 
rc = NSFDbOpen("YourDatabase.nsf", hDB) 
rc = NSFDbReadACL(hDB, hACL) 
rc = ACLSetFlags(hACL, &h0) 
rc = NSFDbStoreACL(hDB, hACL, 0, 0) 
rc = NSFDbClose(hdb) 

Dig Deeper on Domino Resources

SearchWindowsServer

Search400

  • Favorite iSeries cheat sheets

    Here you'll find a collection of valuable cheat sheets gathered from across the iSeries/Search400.com community. These cheat ...

  • HTML cheat sheet

    This is a really cool cheat sheet if you're looking to learn more about HTML. You'll find just about everything you every wanted ...

  • Carol Woodbury: Security

    Carol Woodbury

SearchDataCenter

SearchContentManagement

Close