Local Copy restriction

HCL Domino Domino Forum
1

URGENT!!!Hello admin gurus please help!!!The database property in R6 restrict if enabled the local copy… But I want to restrict the local copy based on the groups or users listed in the database ACL… is it Possible…

Thanks in advance…

2

Subject: Local Copy restriction

I use the “Enforce accross all ACL” & API Method to restrict.

Here is the code I use, but this restricts the local replica. You have to modify the code to fit into your environment.

ScriptUtilities:

'Date: June 11 2002

'Modified: June 18 2002

Declare Function NEMGetCurrentSubprogramWindow Lib “nnotesws.dll” () As Long

Declare Function NEMStopSubprogramWindow Lib “nnotesws.dll” (Byval wHandle As Long) As Integer

Declare Function NEMActivateSubprogram Lib “nnotesws.dll” (Byval hwnd As Long) As Long

Sub CloseWindow

Dim whnd As Long 



'Get handle of the window

whnd = NEMGetCurrentSubprogramWindow

'Activate current window... 

Call NEMActivateSubprogram(whnd)

' Close the window

Call NEMStopSubprogramWindow(whnd)

End Sub

'-----------------------------------------------

Database Script:

Use “ScriptUtilities”

Dim user As String

Sub Initialize

Dim lo_workspace As New NotesUIWorkspace

Dim lo_session As New NotesSession

Dim lo_username As New NotesName(lo_session.UserName)

Dim lo_curdb As NotesDatabase



Set lo_curdb = lo_session.CurrentDatabase

’ If lo_session.GetEnvironmentString(“IntroMessage”)<>Weekday(Now()) Then

’ Call lo_session.SetEnvironmentVar(“IntroMessage”,Weekday(Now()))

’ Call lo_workspace.DialogBox(“(IntroMessage)”,True,True,True,True,True,True, _

’ "Welcome to " & lo_curdb.Title )

’ End If

If lo_curdb.Designtemplatename <> "" Then	

	If ( lo_curdb.Server = "" ) Then

		Msgbox "This database is not designed to be run from a local replica copy.  " & _

		"Please contact the administrator for more information.", 16, _

		"Caution: " & lo_username.Common & ", use of replicas not allowed..."

		Call CloseWindow

	End If

End If

End Sub

3

Subject: RE: Local Copy restriction

Thanks…