Как на Ls проверить подключение к серверу?

fedotxxl

Well-known member
09.11.2005
614
0
#1
Известно только лотусовое имя сервера. Нужно проверить наличие подключения... Как это сделать правильно?
 

Omh

Lotus team
04.07.2007
2 210
1
#2
Не знаю, как правильно, но можно ткнуться так:
Код:
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
 

RAJ

Well-known member
17.01.2007
440
0
#3
я делал простой попыткой открыть базу "names.nsf" на проверяемом сервере
 

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#4
вариант Omh более подходящий, т.к. не завязывается на открытие конкретной базы... да, бывает и другое имя у АК сервера :)