Lotus Notes Учебник - Lotus Notes и Domino Enterprise образования

В принципе, код подключается к удаленному серверу и проверяет, есть ли шаблон log.ntf можно найти и у него есть действительное удостоверение личности реплики. Если шаблон может быть найдено и имеет действующий идентификатор реплики, то сервер запущен. В противном случае, предположим, сервер не работает. Наше тестирование этой функции составил ее запуска по расписанию агента с удаленным сервером и после того как мы закрыли удаленном сервере вниз.

Он успешно вернулся ИСТИНА, когда сервер был запущен и FALSE, когда сервер был вниз. Мы используем запланирован часовой агента в качестве монитора (это является частью процесса создания другого приложения) и, до сих пор, эта функция была 100% надежной. Но, как я уже сказал, мы не испытывали никаких проблем в сети или необычно тяжелые грузы на одном из серверов, чтобы иметь возможность видеть то, что эта функция делает в подобных ситуациях. Вот код:

Функция IsServerUp (сессионный Как NotesSession, ServerName As String) As Boolean
On Error Goto BubbleError
'Return TRUE, если удаленный сервер работает, FALSE, если она не работает
Dim дБ NotesDatabase
On Error Resume Next
Установить дБ = session.GetDatabase (имя_сервера ", log.ntf")
Если не дб Is Nothing Затем
Если не db.IsOpen затем вызвать db.Open ("", "")
«Каждый раз в то время Notes возвращает некорректным, как действительный
"Базы данных с строку нулей, что идентификатор реплики. Проверьте это.
Если db.ReplicaID = Строка $ (Len (db.ReplicaID), "0") Затем установите дБ = Nothing
End If
On Error Goto BubbleError
If Err <> 0 или дБ Is Nothing Тогда
Err = 0
IsServerUp = False
Еще
IsServerUp = True
End If
Exit Function
BubbleError:
Ошибка Err, Error $ & Chr $ (10) & "в процедуре" и Getthreadinfo (1) & ", строка" & CStr (Эрл)
End Function

Если у Вас есть вход, или можете попробовать это на фоне интенсивно используемых серверов (которые могут не отвечать) или много сетевого трафика, дайте нам знать ваши результаты.

Просмотрено 8457 раз 2536 зрителей

Замечания

Скрыть сайтов