Известно только лотусовое имя сервера. Нужно проверить наличие подключения... Как это сделать правильно?

 

Не знаю, как правильно, но можно ткнуться так:

Function ServerIsExists(Server As String) As Boolean
On Error Goto Errh

ServerIsExists = True

Dim DbDir As New NotesDbDirectory(Server)
Dim db As NotesDatabase

On Error Resume Next
Error 1001
Set db = DbDir.GetFirstDatabase(TEMPLATE_CANDIDATE)
If Err <> 1001 Then ServerIsExists = False
On Error Goto Errh

If Not ServerIsExists Then Print "Server " + Server + " not found!"

Exit Function
Errh:
Call ErrHandler
Exit Function
End Function

 

я делал простой попыткой открыть базу "names.nsf" на проверяемом сервере

 

вариант Omh более подходящий, т.к. не завязывается на открытие конкретной базы... да, бывает и другое имя у АК сервера