Удалить соединения 1С

(0) и даже мой, многократно проверенный форумом код не работает ?
// до тех пор, пока соединений много, надо убивать всех, кроме себя
// получим всё необходимое через строку запуска
// адрес сервера;база;логин;пароль
ПараметрыЗапуска = РазложитьСтрокуВМассивПодстрок(ПараметрЗапуска,";"); // вернётся массив
Если ПараметрыЗапуска.ВГраница()<>3 Тогда
ЗавершитьРаботуСистемы(Ложь);
Возврат;
КонецЕсли;
НомерСоединения=0;
Пользователь=ПараметрыЗапуска[2];
Пароль=ПараметрыЗапуска[3];
Попытка
СтрокаСоединения=СтрокаСоединенияИнформационнойБазы();
ЭтоСоединение=НомерСоединенияИнформационнойБазы();
База=ПараметрыЗапуска[1];
КОМ=Новый COMОбъект("V82.COMConnector");
Сервер=ПараметрыЗапуска[0];//"192.168.0.60:2540";
Агент=КОМ.ConnectAgent(Сервер);
Кластеры=Агент.GetClusters();
Кластер=Кластеры.GetValue(0);
Агент.Authenticate(Кластер,"","");
РабочиеПроцессы=Агент.GetWorkingProcesses(Кластер);
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Для Каждого Процесс Из РабочиеПроцессы Цикл
СтрокаСоединенияРП=Процесс.HostName+":"+Формат(Процесс.MainPort,"ЧГ=");
СоединениеРП=КОМ.ConnectWorkingProcess(СтрокаСоединенияРП);
СоединениеРП.AddAuthentication(Пользователь,Пароль);
ОписаниеИБ=СоединениеРП.CreateInfoBaseInfo();
ОписаниеИБ.Name=База;
Соединения=СоединениеРП.GetInfoBaseConnections(ОписаниеИБ);
Для Каждого Соединение Из Соединения Цикл
Если Соединение.AppID="COMConsole" Тогда
Продолжить;
КонецЕсли;
Если Соединение.ConnID<>ЭтоСоединение Тогда
СоединениеРП.Disconnect(Соединение); // всех кроме себя
КонецЕсли;
КонецЦикла;
КонецЦикла;
КОМ=Неопределено;
ЗавершитьРаботуСистемы(Ложь);
Исключение
//Сообщить(ОписаниеОшибки());
КонецПопытки;