Предупреждения на все компьютеры

[crazykapter]

Здравствуйте!

Подскажите пожалуйста такую вещь. Можно ли стандартными средствами вывести на все компьютеры в сети предупреждение о необходимости выхода из 1с (для сохранения ИБ), и как это организовать.

Заранее благодарю.

[Вячеслав62]

Процедура тмОбработка()
   Если СокрЛП(Константа.тмВремя)=Лев(ТекущееВремя(),5) Тогда
      Предупреждение("Работа программы будет завершена через 10 секунд.",10);
      Если НЕ(НазваниеНабораПрав(1)="") Тогда
         ЗавершитьРаботуСистемы(0);
      КонецЕсли;
   КонецЕсли;   
   
   Если СокрЛП(Константа.тмЮзер)="" Тогда
      Если      Константа.тмДействие = 1 Тогда
         Предупреждение(Константа.тмТекст,30);
      ИначеЕсли Константа.тмДействие = 2 Тогда
         Предупреждение("Работа программы будет завершена через 10 секунд.",10);
         Если НЕ(НазваниеНабораПрав(1)="") Тогда
            ЗавершитьРаботуСистемы(0);
         КонецЕсли;
      КонецЕсли;   
   Иначе
      Если СокрЛП(Константа.тмЮзер)=СокрЛП(ИмяПользователя()) Тогда
         Предупреждение(Константа.тмТекст);
         Константа.тмТекст = "";
         Константа.тмЮзер  = "";
      КонецЕсли;   
   КонецЕсли;   
   
КонецПроцедуры // тмОбработка

Всё это пишешь в глобальном модуле.Потом создаешь константы ; тмЮзер, тмДействие,тмВремя,тмТекст.

Для того что бы выбросить пользователей из сети просто в константах ствишь в поле тмДействие цифру 1.Появится предупреждение на всех мониторах пользователей.Если сами не выйдут то ставишь цифру 2. Выбросит всех. Не забудь после того как вернешь базу в работу поставить 0 в действия.

[Вячеслав62]

Да, и еще. в константах пропиши там где тмДействие--Работа программы будет завершена через 10 минут.

[Вячеслав62]

Извини, в тмТекст

[crazykapter]

Огромное спасибо