
	Home > Domino Tips > Spam and Security > Restricting Database Access After Hours

Domino Tips:

EMAIL THIS

TIPS & NEWSLETTERS TOPICS

SPAM AND SECURITY

Restricting Database Access After Hours

John Warner
08.24.2000
Rating: --- (out of 5)

Digg This!

StumbleUpon

Del.icio.us

This is a quick way to restrict access to a Notes database for those customers
who do not fully understand Notes security and want the database "shut down"
after hours. (My customer physically wanted the server to be shut down on a
nightly basis)

I created a scheduled agent that runs at 8:00 pm nightly to modify all entries
in the ACL except Managers and set their access to No Access. This restricts
all users while allowing you to still administer the server after hours. I
also wrote another scheduled agent to grant access that runs at 8:00 am.

Code

Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim acl_entry As NotesACLEntry

On Error Goto ProcessError

Set nlog = New NotesLog("Restrict Access")
Call nlog.OpenAgentLog()
Call nlog.LogAction("Agent Started")

Set db = session.CurrentDatabase

If (db Is Nothing) Then

Digg This!

StumbleUpon

Del.icio.us

RELATED CONTENT

	Spam and Security
	Securely connect Lotus Domino servers on different domains
	Protect Lotus Notes from malicious code with the Domino ECL
	How to correct Lotus Notes public key mismatches in four easy steps
	A recipe for secure IM success
	Telecommuter security kit
	Spear phishing: Don't be a target
	FAQ: Lotus Notes Domino password issues
	Security awareness training: How to educate employees about spyware
	Seven tips to strengthen your Domino e-mail security
	Admin2005 preview: Tips, techniques, and a look at Notes/Domino Rel. 7

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

> Call nlog.LogAction("db is nothing")
Exit Sub
End If

Set acl = db.ACL
Set acl_entry = acl.GetFirstEntry()

'ACL Level Access Key
'ACLLEVEL_NOACCESS = 0
'ACLLEVEL_DEPOSITOR = 1
'ACLLEVEL_READER = 2
'ACLLEVEL_AUTHOR = 3
'ACLLEVEL_EDITOR = 4
'ACLLEVEL_DESIGNER = 5
'ACLLEVEL_MANAGER = 6

While Not (acl_entry Is Nothing)
Select Case (acl_entry.Level)
Case ACLEVEL_DEPOSITOR:
Case ACLLEVEL_READER:
Case ACLLEVEL_AUTHOR :
Case ACLLEVEL_EDITOR :
Case ACLLEVEL_DESIGNER:
acl_entry.Level = ACL_NOACCESS
End Select
Set acl_entry = acl.GetNextEntry(acl_entry)
Wend

'save changes to the ACL
Call acl.Save
Call nlog.LogAction("agent completed successfully")
Call nlog.Close

Exit Sub

ProcessError:
Call nlog.LogError(Err,Error$ & " occured at line " & Erl)
Exit Sub

End Sub

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.

Submit a Tip

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

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