Get Access Back

Get Access Back

You Can View User Feedback To This Tip

Need the ability to get access back to all applications on a server or assign a certain group access to all databases? This code will allow you to set the ACL of any and all databases on a server, even with local security enforced. This code will work as long as the server has Manager Access to the application. Place this code into a scheduled agent on the server.

Use the server ID to Schedule and save the agent. The agent will walk though all databases on the server and make the changes. It will create an entry in the Log.nsf file for each database.

Sub Initialize
 Dim session As New Notessession
 Dim count As Integer
 count =0
 On Error Goto ErrorHandle
 
 Set Directory = New Notesdbdirectory("")
 Set db=directory.getfirstdatabase(TEMPLATE_CANDIDATE)
 While Not (db Is Nothing)
  Count = count +1
  Print Count
  Call db.Open( "","")
  Print db.filename
  Call db.GrantAccess("Admin",ACLLEVEL_MANAGER)
  Call db.GrantAccess("Anonymous",ACLLEVEL_NOACCESS)
  Set db = directory.getnextdatabase
 Wend
 Exit Sub
 
Errorhandle:
        Print "Skipped " + db.filename 
        Resume Next 
End Sub

USER FEEDBACK TO THIS TIP

  • There are two problems with this tip that render it mostly worthless for R5:

    1. You can no longer sign elements with the server ID from your workstation. The whole premise of the tip is that your ID no longer has access. However, you do have access to the server ID and can thus sign the element. This step is not easily done in R5 which should have been mentioned along with the instructions for doing so. Based on information from Lotus on how this is done in R5, the tip is of little help. A link to the tip from support.lotus.com is below: http://support.lotus.com/sims2.nsf/802ee480bdd32d0b852566fa005acf8d/d888c4b45ce7bf76862567dd00646502?OpenDocument&Highlight=0,signing,ID,R5

    2. The agent is described as a "Scheduled" agent. These types of agents can run on two types of documents -- all documents in the database and new or modified documents. That being the case, where would this agent be created since it is not truly "acting" on any documents but instead is modifying the ACL of a database. When you actually run the agent, it doesn't work because NO documents 'match' the agents criteria.

    — Reese Spears

This was first published in February 2001

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:

SearchWinIT

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

SearchVirtualDataCentre.co.uk

Close