Проверка доступа между Domino серверами

2019-01-10T13:44:13Z

Sub Initialize
On Error GoTo ErrH
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase ' роутер
Dim doc As NotesDocument, docD As NotesDocument ' доки в роутере и докобороте
Dim server As String

Print "ТЕСТ КОННЕТА СЕРВЕРОВ!"
Set db = session.CurrentDatabase
Dim DocObor As NotesDatabase' документооборот
Print "1"
Set DocObor = session.GetDatabase("t/TADM","...pdoc/docents.nsf")
Print "2"
If Not DocObor.Isopen Then'проверка доступа к базе Документооборот'
Print "Нет доступа к БД Документы!"
Exit Sub
End If
Print "ТЕСТ КОННЕТА СЕРВЕРОВ! - Отработал!"
Exit Sub
ErrH:
Print "ТЕСТ КОННЕТА СЕРВЕРОВ!- Ошибка: " & Error(Err) & " в строке " & Erl
End Sub

Форум компьютерной помощи — Проверка доступа между Domino серверами

Проверка доступа между Domino серверами