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

Тема в разделе "Lotus - Администрирование", создана пользователем yan4eg, 6 дек 2011.

Статус темы:
Закрыта.
  1. yan4eg

    yan4eg Гость

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

    Для удаления порта нашел такой скриптик на сайте IBM. https://www-304.ibm.com/support/docview.wss?uid=swg21145214
    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 я информации не нашел.
    Помогите.
     
  2. Baneslaer

    Baneslaer Well-Known Member

    Регистрация:
    25 янв 2011
    Сообщения:
    121
    Симпатии:
    0
    Все что делает 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 для "тяжелых" баз, тогда все будет работать намного быстрее.
     
Загрузка...
Статус темы:
Закрыта.

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