Принудительное завершение работы

Процедура ПриОткрытии()
    
    
    Коннектор = Новый COMОбъект("V83.COMConnector");
    
    ИмяСервера         = "beta";
    Порт              = "1540"; 
    ИСервера = "TCP://" + ИмяСервера + ":" + Порт;
    ИмяБазы = "corp8";
    ИмяАдминистратора ="Администратор";
    ПарольАдминистратора = "11111"; 
 
Коннектор = Новый COMОбъект("V83.COMConnector"); 
    Агент = Коннектор.ConnectAgent(ИмяСервера); 
    Кластеры = Агент.GetClusters(); 
    Для каждого Кластер из Кластеры Цикл 
        //АдминистраторКластера = "Имя администратора кластера"; 
        //ПарольКластера = "Пароль администратора кластера"; 
        //Агент.Authenticate(Кластер, АдминистраторКластера, ПарольКластера); 
        Агент.Authenticate(Кластер,,); 
        Процессы = Агент.GetWorkingProcesses(Кластер); 
        Для каждого Процесс из Процессы Цикл 
            Порт = Процесс.MainPort; 
            // теперь есть адрес и порт для подключения к рабочему процессу 
            РабПроц = Коннектор.ConnectWorkingProcess(ИмяСервера + ":" + СтрЗаменить(Порт, Символы.НПП, "")); 
            РабПроц.AddAuthentication(ИмяАдминистратора, ПарольАдминистратора); 
            
            ИнформационнаяБаза = ""; 
            
            Базы = Агент.GetInfoBases(Кластер); 
            Для каждого База из Базы Цикл 
                Если ВРЕГ(База.Name) = ВРЕГ(ИмяБазы) Тогда
                    ИнформационнаяБаза = База; 
                    Прервать; 
                КонецЕсли; 
            КонецЦикла; 
            Если ИнформационнаяБаза = "" Тогда 
                // база не найдена 
            КонецЕсли; 
            
            Сеансы = Агент.GetInfoBaseSessions(Кластер, ИнформационнаяБаза); 
            Для каждого Сеанс из Сеансы Цикл 
                
                Если нРег(Сеанс.AppID) = "backgroundjob" ИЛИ нРег(Сеанс.AppID) = "comconsole" Тогда 
                    // если это сеансы com-приложения или фонового задания, то не отключаем 
                    Продолжить; 
                КонецЕсли; 
                Если Сеанс.UserName = ИмяПользователя() Тогда 
                    // это текущий пользователь 
                    Продолжить; 
                КонецЕсли; 
                Агент.TerminateSession(Кластер, Сеанс); 
                Сообщить("Отключен сеанс "+строка(Сеанс.UserName)); 
            КонецЦикла; 
            
            ИнформационнаяБаза2 = РабПроц.CreateInfoBaseInfo(); 
            ИнформационнаяБаза2.Name = ИмяБазы; 
            СоединенияБазы = РабПроц.GetInfoBaseConnections(ИнформационнаяБаза2); 
            // Разорвать соединения клиентских приложений. 
            Для Каждого Соединение Из СоединенияБазы Цикл 
                Если нРег(Соединение.AppID) = "backgroundjob" ИЛИ нРег(Соединение.AppID) = "comconsole" Тогда 
                    Продолжить; 
                КонецЕсли; 
                Если Соединение.UserName = ИмяПользователя() Тогда 
                    // это текущий пользователь 
                    Продолжить; 
                КонецЕсли; 
                РабПроц.Disconnect(Соединение); 
            КонецЦикла; 
        КонецЦикла; 
    КонецЦикла;   
    //Предупреждение("Завершается работа...", 5); 
    ЗавершитьРаботуСистемы(Ложь); 
 
    
КонецПроцедуры