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

Тема в разделе "Lotus - Программирование", создана пользователем fedotxxl, 6 май 2009.

  1. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Известно только лотусовое имя сервера. Нужно проверить наличие подключения... Как это сделать правильно?
     
  2. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Не знаю, как правильно, но можно ткнуться так:
    Код (Text):
    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
     
  3. RAJ

    RAJ Well-Known Member

    Регистрация:
    17 янв 2007
    Сообщения:
    440
    Симпатии:
    0
    я делал простой попыткой открыть базу "names.nsf" на проверяемом сервере
     
  4. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    вариант Omh более подходящий, т.к. не завязывается на открытие конкретной базы... да, бывает и другое имя у АК сервера :)
     
Загрузка...

Поделиться этой страницей