Leider geht das nicht so ohne weiteres, aber ich hab da was. Einfach in den DB Script einfügen :
Unter Declarations :
Declare Function NEMGetCurrentSubprogramWindow Lib "nnotesws.dll" () As Long
Declare Function NEMStopSubprogramWindow Lib "nnotesws.dll" (Byval hwnd As Long) As Integer
Und im Postopen :
Set session = New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim version As String
Dim extract As String
version = session.NotesVersion
extract = Left(version, 9)
' Messagebox extract
If extract <> "Release 5" Then
Messagebox "Important: Sorry but you do not have an R5 client and will be unable to properly access this application.", 0 + 64, "Sorry!"
Dim wHandle As Long
' Get window handle
wHandle = NEMGetCurrentSubprogramWindow
' Close current window
Call NEMStopSubprogramWindow(wHandle)
End If
Das Ding ist zum Prüfen, ob der Anwender mit einem 5er Client arbeitet, sollte ziemlich simple zum Anpassen bzgl. der lokalen Replik sein. Aber Achtung : Wenn ein Anwender mit dem Script Debuger arbeitet, dann kann man das Ding ziemlich simple umgehen.
Meff