1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,227
  • Репутация : 0

Тема: Брэндмауэр Windows и сервер Domino

Для доступа между серверами Domino в брэндмауэре Windows необходимо разрешить работу порта 1352.
1. Заходим в Панель управления \ Система и безопасность \ Брандмауэр Windows \ Дополнительные параметры.
2. Создать новое правило в разделе "Правила для входящих подключений".
3. Выбираем "Для порта", "Протокол ТСР", указываем порт 1352, разрешаем его.
Получается правило как на скриншоте.

Post's attachments

Открыть порт Lotus.PNG, 44.59 kb, 676 x 373
Открыть порт Lotus.PNG 44.59 kb, 155 downloads since 2021-08-24 

Поделиться

2 Ответ от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,227
  • Репутация : 0

Re: Брэндмауэр Windows и сервер Domino

Чтобы с включенным брэндмауром работала библиотека NotesFTP, как в примере кода ниже
   
Dim objFTP As NotesFTPSession
Set objFTP=New NotesFTPSession
With objFTP
.Connect ftpIP, ftpLogin, ftpPass, 0
.PutFile nam, namout,FTP_TRANSFER_TYPE_ASCII
.Disconnect
End With
Delete objFTP


Вариант1.
.Connect ftpIP, ftpLogin, ftpPass, 0
заменяем на
.Connect ftpIP, ftpLogin, ftpPass, INTERNET_FLAG_PASSIVE


Вариант2. В библиотеке NotesFTP

Sub Connect(server$, user$, password$, flags&)        


Me.hConnection = InternetConnect(Me.hLib, server$, INTERNET_INVALID_PORT_NUMBER, user$, password$, INTERNET_SERVICE_FTP, flags&, 0)


заменить на

Me.hConnection = InternetConnect(Me.hLib, server$, INTERNET_INVALID_PORT_NUMBER, user$, password$, 1, INTERNET_FLAG_PASSIVE, 2)


    End Sub

Поделиться