Отключение Лишних Портов И Изменить Время Ожидания.(как Сделать Сразу

  • Автор темы yan4eg
  • Дата начала
Статус
Закрыто для дальнейших ответов.
Y

yan4eg

#1
При установке клиентов создалось 2 порта по котором клиент работает(TCPIP,LAN0).
Соответственно в подключении к серверу задействованы эти 2 порта.(Коллеги по опытнее говорят, что LAN0 тормозит работу клиента)
Итак, надо убрать лишний LAN0 порт и сделать time-out побольше, как это можно сделать не оббегая каждое рабочее место?

Для удаления порта нашел такой скриптик на сайте IBM.
Для просмотра контента необходимо: Войти или зарегистрироваться

Dim s As New NotesSession
Call s.SetEnvironmentVar ("Ports","TCPIP,COM1", True)
Call s.SetEnvironmentVar ("DisabledPorts","LAN0,COM2,SPX,COM3,COM4,COM5", True)
End Sub
и
Dim s As New NotesSession
DP=s.getenvironmentstring("DisabledPorts", True)
P=s.getenvironmentstring("Ports", True)


'THIS SECTION USED TO DISABLE A SINGLE PORT
PortToDisable="COM5"
If Instr(1,DP, PortToDisable)=0 Then 'If the ports not already disabled

'Add the additional port to DisabledPorts
DP = DP & "," & PortToDisable
Call s.SetEnvironmentVar("DisabledPorts", DP)

'Remove the port from enabled Ports
where=Instr(1, P, PortToDisable)
If where<>0 Then 'If WHERE=0 then port wasn't in the DisabledPorts var
If where=1 Then
LeftP=""
Else
LeftP=Left(P, where-2)
End If

If where=Len(P)-Len(PortToDisable)+1 Then
RightP=""
Else
RightP=Right(P, Len(P)-where-Len(porttodisable))
End If
comma=","

If leftp="" Or rightp="" Then
comma= ""
End If

P=leftP & comma & rightP
Call s.SetEnvironmentVar("Ports", P)
End If
End If

'THIS SECTION USED TO ENABLE A SINGLE PORT

PortToEnable="COM4"
If Instr(1,P, PortToEnable)=0 Then 'If the ports not already enabled

'Add the additional port to Ports
P = P & "," & PortToEnable
Call s.SetEnvironmentVar("Ports", P)

'Remove the port from DisabledPorts
where=Instr(1, DP, PortToenable)
If where<>0 Then 'If WHERE=0 then port wasn't in the DisabledPorts var
If where=1 Then
LeftDP=""
Else
LeftDP=Left(DP, where-2)
End If
If where=Len(DP)-Len(PortToEnable)+1 Then
RightDP=""
Else
RightDP=Right(DP, Len(DP)-where-Len(porttoenable))
End If

comma=","
If leftdp="" Or rightdp="" Then
comma= ""
End If
DP=leftDP & comma & rightDP
Call s.SetEnvironmentVar("DisabledPorts", DP)
End If
End If


Так как я не понимаю ничего в Lotus Script, то даже не могу понять как и что сделать чтобы этот скрипт заработал.
И скрипт описывает только удаление портов, а про изменение time-out я информации не нашел.
Помогите.
 

Baneslaer

Well-known member
25.01.2011
123
0
#2
Все что делает 1 скрипт, так это записывает определенные значения в файлик notes.ini, а именно:

Ports=TCPIP, COM1
DisabledPorts=LAN0,COM2,SPX,COM3,COM4,COM5

Только вот порт COM1 вам тоже включать не нужно :rolleyes:
Можем его добавить в строчку
Call s.SetEnvironmentVar ("DisabledPorts","LAN0, COM1,COM2,SPX,COM3,COM4,COM5", True), а из первой удалить.

Для настройки таймаута нужно дописать аналогичный кусочек скрипта для переменной TCPIP_TcpConnectTimeout=0,30

Думаю, что справитесь дальше сами :rolleyes:

Добавлено: кроме того порекомендовал бы еще включить компрессию трафика на порте TCPIP на клиенте и сервере и желательно по ночам Updall - R для "тяжелых" баз, тогда все будет работать намного быстрее.
 
Статус
Закрыто для дальнейших ответов.