8.х Как програмно принудительно закрыть сессии?

Здравствуйте.
Платформа 8.1 (.11.67)
Как програмно принудительно закрыть сессии (все или нужные)? И как оповестить пользователей о предстоящем закрытии их сессий? Есть какие намеки на решение?
Да, это, базы данных и фаловые, и на SQL. Нужно и для того, и для другого случая.
Заранее всем спасибо.

Спасибо.
Отмазываюсь: я действительно пытался поискать по форуму...
Для будущих искателей: Закрыть сессии, завершить сеансы, выгнать пользователей. Ну и хватит.
Для себя решил посмотреть, как сделано в УПП. Есть еще какой-то вариант здесь, но я его не видел, он платный - http://infostart.ru/projects/2874/.
Тему наверное можно закрывать.

А как же мои бесплатные варианты? )
Все есть на Инфостарте.

Ну, или там были внешним приложением реализованы выгонялки, или только для клиент-серверного варианта. А мне нужно было в общем-то для реализации обмена. В случае, если приходит измененная конфигурация, выгнаться всех, закрыть текущую сессию, запустив пакетном режиме обновление конфигурации.

Реализовал запущенным ОбработчикомОжидания, кот. вызывает процедуру, проверяющую наличие блокировки. Т.е., когда надо, устанавливаю блокировку на 5 мин, обработчик ожидания с периодом в 60 сек проверяет, 2 раза с интревалом в минуту сообщает, что для обновления будет завершена программа, на 3-й - завершает. Будет кому интересно, покажу код.

Если это плохой метод, с удовольствием выслушаю конструктивную критику. :unsure:

А динамическое в случае изменения структуры не возможно. Или я ошибаюсь?

Да никаких секретов нет.

Код:

Процедура ПриНачалеРаботыСистемы()

ПодключитьОбработчикОжидания("ЗавершитьРаботуПользователей", 60);	

...	
КонецПроцедуры

В нужный момент включаю блокировку. А след. процедура 1 раз в минуту проверяет наличие блокировки.

Код:

Процедура ЗавершитьРаботуПользователей() Экспорт
//в 1-ю очередь проверим, нужно ли. Нужно только при включенной блокировке
// Получим текущее значение параметров блокировки
Блокировка = ПолучитьБлокировкуУстановкиСоединений();
БлокировкаУстановлена = Блокировка.Установлена;

Если Не БлокировкаУстановлена Тогда 
Возврат;
КонецЕсли;

ПараметрБлокировки = Блокировка.Параметр;
ПозицияРазделителя = Найти(ПараметрБлокировки, ";");
Если ПозицияРазделителя = 0 Тогда 
//это какая-то не наша блокировка
Возврат;
КонецЕсли;

//Разберем 
ИмяПользователяЗапуска = Лев(ПараметрБлокировки , ПозицияРазделителя-1);
Команда                = Прав(ПараметрБлокировки , СтрДлина(ПараметрБлокировки) - ПозицияРазделителя);

Если ИмяПользователяЗапуска = ИмяПользователя() Тогда
Соединения = ПолучитьСоединенияИнформационнойБазы();
Если Соединения.Количество() = 1 Тогда
// Отключены все пользователи, кроме текущего сеанса
КомандаСистемы(Команда);
ЗавершитьРаботуСистемы(Ложь);
Возврат;
КонецЕсли; 
ЗапущенныеСеансы="";
для каждого соед из Соединения цикл
Если НомерСоединенияИнформационнойБазы()=соед.НомерСоединения Тогда
Продолжить;
КонецЕсли;
ЗапущенныеСеансы=ЗапущенныеСеансы
+"Имя компьютера:"+СокрЛП(соед.ИмяКомпьютера)+"; "+
+"Пользователь:"+СокрЛП(соед.Пользователь)
+Символы.ПС;						
КонецЦикла;
Предупреждение("Ожидается завершение следуюих сеансов для обновления конфигурации:"+Символы.ПС
+ЗапущенныеСеансы, 10); 
Иначе
ВремяНачалаБлокировки = Блокировка.Начало;
Причина = Блокировка.Сообщение;
ТекущееВремя = ТекущаяДата();
РазницаРемени = ТекущееВремя - ВремяНачалаБлокировки;

ПлюсТекст = "
|Причина - "+Причина+". Несохраненные данные будут утеряны.";

Если РазницаРемени <= 60 Тогда //1-е предупреждение
Предупреждение("Закройте, пожалуйста, программу. Или работа будет завершена через 2 минуты. "+ПлюсТекст, 10);
ИначеЕсли РазницаРемени <= 120 Тогда   //2-е предупреждение
Предупреждение("Закройте, пожалуйста, программу. Или работа будет завершена через 1 минуту. "+ПлюсТекст, 10);
ИначеЕсли РазницаРемени <= 180 Тогда //завершение работы с запросами о сохранении несохр.
Предупреждение("Программа будет завершена сейчас. Причина - "+Причина, 10);
ПрекратитьРаботуСистемы();//ЗавершитьРаботуСистемы(Ложь);
Иначе                                //безусловное завершение работы
ПрекратитьРаботуСистемы();
КонецЕсли;
КонецЕсли;

КонецПроцедуры

Перед завершением работы запускаю в пакетном режиме свое обновление конфигурации:
"КомандаСистемы(Команда);", где команда равно "Start /D"+КаталогОбмена + "/B UpdateDB.bat"