8.х Завершение сеансов. Скрипт vbs. Через COM

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем Kirill_NN, 27 мар 2020.

  1. TopicStarter Overlay
    Kirill_NN
    Offline

    Kirill_NN Опытный в 1С

    Регистрация:
    2 фев 2007
    Сообщения:
    121
    Симпатии:
    0
    Баллы:
    26
    Здравствуйте.
    Помогите пожалуйста дописать скрипт завершения сеансов.
    Вот сам скрипт, который я пытаюсь переделать из найденного в Интернете:

    Dim srv
    Dim login
    Dim pwd
    Dim ibname

    srv = "localhost"
    login = "admin"
    pwd = "admin"
    ibname = "base"

    Dim connector
    Set connector = WScript.CreateObject("v83.ComConnector")

    //Сначала долго не хотел подключаться, пока явно не прописал ВСЕ данные для подключения
    Dim server
    Set server = connector.Connect("Srvr=localhost;Ref=base;Usr=admin;Pwd=admin")

    //Сейчас ругается, что не найденм метод CreateInfoBaseInfo()
    Dim ibDesc
    Set ibDesc = server.CreateInfoBaseInfo()
    ibDesc.Name = ibname

    For i = LBound(connections) To UBound(connections)

    Set connection = connections(i)
    server.Disconnect connection

    Next

    rem msgbox "db """ & ibname & """ is detached! "

    Нужен скрипт который выкидывал бы все активные сеансы из базы
  2. Злой Чебурашка
    Offline

    Злой Чебурашка

    Регистрация:
    12 мар 2020
    Сообщения:
    7
    Симпатии:
    0
    Баллы:
    1
    вы саму задачу опишите, а то может вы из пушки по воробьям бьете...
    зачем нужно выкидывать?
  3. TopicStarter Overlay
    Kirill_NN
    Offline

    Kirill_NN Опытный в 1С

    Регистрация:
    2 фев 2007
    Сообщения:
    121
    Симпатии:
    0
    Баллы:
    26
    Есть торговля на PostgreSQL + ВебСервер на Apache2.4
    и, сеансы через ВебСервер, периодически, некорректно отключаются (пользователь закрыл 1С, а сеанс остался)
    Когда таких сеансов слишком много - зайти не может никто
    Я сделал Автоперезагрузку сервака несколько раз в неделю, но сеансы, почему то остаются даже после перезагрузки и мне приходится их выкидывать из консоли Администрирования сервера 1С, вручную
    Хочу это так же сделать автоматом :)
  4. Briz
    Offline

    Briz Опытный в 1С

    Регистрация:
    9 апр 2013
    Сообщения:
    139
    Симпатии:
    18
    Баллы:
    29
    CreateInfoBaseInfo - это метод Рабочего процесса, а НЕ внешнего соединения..! :cool:
    ВОТ хорошая статья на ЭТУ тему:
    http://tools.erpstat.ru/public/667256/
    Злой Чебурашка нравится это.
  5. Злой Чебурашка
    Offline

    Злой Чебурашка

    Регистрация:
    12 мар 2020
    Сообщения:
    7
    Симпатии:
    0
    Баллы:
    1
    по хорошему просто делается регламентное задание(например ночь), которое отключает пользователей, а прямо с сервера отстреливать не всегда корректно и действующим пользователям можно навредить(маловероятно, но возможно)..

    Так же совет посмотреть на значение Конфигуратор → Администрирование → Параметры информационной базы:

    upload_2020-3-27_9-56-50.png
  6. TopicStarter Overlay
    Kirill_NN
    Offline

    Kirill_NN Опытный в 1С

    Регистрация:
    2 фев 2007
    Сообщения:
    121
    Симпатии:
    0
    Баллы:
    26
    Попробовал... Уменьшил значение Время завершения спящего сеанса... не помогло...
    В списке сеансов, люди есть, в соединениях нет...

    А не поделитесь инфой, как сделать регламентное задание? в смысле обработкой, что бы всех выкинуть?
    У меня УТ переделанная немного - Управление торговлей, редакция 11 (11.4.7.150) на 1С:Предприятие 8.3 (8.3.15.1830)
    Или нада как то дописать скрипт, я все равно перед эти буду делать полный ребут сервера