Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby
1. Цифровая криминалистика и реагирование на инциденты2. ОС Linux (DFIR) Старт: 16 мая3. Анализ фишинговых атак Старт: 16 мая
Устройства для тестирования на проникновение Старт: 16 мая
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
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.