Option to restrict users from accessing all Notes databases on the Domino Server from a specific PC.

Notes Client is installed in two terminals (Machine A and Machine B) and let's assume the same user logged in to both machines.

The user will be able to access all the databases on both machines simultaneously. This is expected.

One can restrict users from accessing the same database from one PC(Machine B) and not from another PC(Machine A) using a script.

The below sample script can be used in "PostOpen" event of the "Database Script" of impacted NotesDB.

Sample Code:

****************

Dim ws As New NotesUIWorkspace

Dim uidb As NotesUIDatabase

Set uidb = ws.Currentdatabase

Dim WSHNetwork As Variant

Dim strComputerName As String

Set WSHNetwork = CreateObject("WScript.Network")

strComputerName = WSHNetwork.ComputerName

If strComputerName = "<Machine B Device Name>" Then

MsgBox "You don't have access to open this database in " + strComputerName + " System ", 64 , "Alert"

Call uidb.Close()

Exit Sub

***************

This will be a manual change that needs to be done for one NotesDB.

However, this approach is difficult to implement if one wish to restrict user from accessing on all databases from Machine B.

Hence, need to achieve this through some inbuilt features.