Подскажите с кодом, пишу простейшую обработку которая должна выбить всех активных пользователей из базы sql в которой она запускается.
1 процедура. Потом условие поставлю чтоб выбивала всех кроме меня.
Затык при выполнении кода:
Процедура КнопкаВыполнитьНажатие(Кнопка)
        
    Режим = РежимДиалогаВопрос.ДаНет;
    Ответ = Вопрос("Точно хотите всех выгнать из базы?", Режим, 0);
    
    Если Ответ =КодВозвратаДиалога.Да Тогда
        
        Коннектор = Новый COMОбъект("V82.COMConnector");
        Попытка
        Сервер = Коннектор.Connect("тут параметры подключения");
        
        МассивСоединений=ПолучитьСоединенияИнформационнойБазы();
        Для Каждого Соединение Из МассивСоединений Цикл
            Сервер.Disconnect(Соединение);
        КонецЦикла;
            
        Исключение
        Сообщить(ОписаниеОшибки());    
    КонецПопытки;
Коннектор = Неопределено;
        
    ИначеЕсли Ответ = КодВозвратаДиалога.Нет Тогда
        Возврат;
    КонецЕсли;  
при выполнении ругается на Метод объекта не обнаружен (Disconnect)
Сервер.Disconnect(Соединение);

(0) Ужас

КомОбъект тебе зачем нужен в этой обработке?

(2) чтоб подрубиться к серверу где крутиться база.

Интересный вирус

(2) все допетрил, нужно подрубиться к АГЕНТУ сервера и все активные сеансы отключить

(5)подскажите как?

(6) мышкой

Я думаю что никак. Подключайся к оснастке и выкидывай всех оттуда.

мульон скриптов лежит готовых в сети

(8) Почему никак? Очень даже как.

(2) ТС идёт верной дорогой
(8) бред
(9) +100500

готово!
Процедура КнопкаВыполнитьНажатие(Кнопка)
    
    Режим = РежимДиалогаВопрос.ДаНет;
    Ответ = Вопрос("Точно хотите всех выгнать из базы?", Режим, 0);
    
    Если Ответ =КодВозвратаДиалога.Да Тогда
        
        Коннектор = Новый COMОбъект("V83.COMConnector");
        Попытка            
            Сервер = Коннектор.ConnectWorkingProcess("tcp://SQL:1641");
            // Аутентифицироваться с административными правами в нужной базе.
            Сервер.AddAuthentication("ИмяПользака", "пароль");
            
            // Создать объект нужной информационной базы.
            ИнформационнаяБаза = Сервер.CreateInfoBaseInfo();
            ИнформационнаяБаза.Name = "ИмяБазы";
            
            // Получить соединения базы.
            СоединенияБазы = Сервер.GetIBConnections(ИнформационнаяБаза);
            
            // Разорвать соединения клиентских приложений.
            Для Каждого Соединение Из СоединенияБазы Цикл
                Сервер.Disconnect(Соединение);
            КонецЦикла;
            
        Исключение
            Сообщить(ОписаниеОшибки());    
        КонецПопытки;
        
        Коннектор = Неопределено;
        
    ИначеЕсли Ответ = КодВозвратаДиалога.Нет Тогда
        Возврат;
    КонецЕсли;  
    
КонецПроцедуры

поищи в УПП есть выгонялка

Обработка - Активные пользователи - кнопка "Завершить сеанс"

(0) Гугли,  да воздастся тебе по заслугам твоим :)

Коннектор = Новый COMОбъект("v81.COMConnector");
Агент = Коннектор.ConnectAgent(Сервер);
Кластеры = Агент.GetClusters();
Для Каждого Кластер из Кластеры Цикл
   Агент.Authenticate(Кластер, Пользователь,Пароль);
   Процессы = Агент.GetWorkingProcesses(Кластер);
   Для каждого Процесс из Процессы Цикл
...

+(14)

    // Подключение к агенту сервера
    АгентСервера = COMСоединитель.ConnectAgent(ИдентификаторАгентаСервера);
    
    // Найдем необходимый нам кластер
    Для Каждого Кластер Из АгентСервера.GetClusters() Цикл
        
        Если Кластер.MainPort = НомерПортаКластера Тогда
            
            АгентСервера.Authenticate(Кластер,
                ПараметрыСоединенияССервером1СПредприятие.ИмяАдминистратораКластера,
                ПараметрыСоединенияССервером1СПредприятие.ПарольАдминистратораКластера);
            СписокСеансов = АгентСервера.GetSessions(Кластер);
            Для Каждого Сеанс из СписокСеансов Цикл

(15) (16) спасибо большое

(0)БлокировкаСоединенийСИнформационнойБазой
стандартная же есть

(18) А разве блокировка рвёт уже установленные соединения?

(19) рвет. Но это в каждой конкретной конфе прописано по-своему было. В новых - это БСП. На сколько помню 5 минут от установленного времени начала - и рвет.