Всем добрый День! Написал в главном модуле:
Процедура Сброспользователей()
  Если НазваниеНабораПрав() <> "Мегаадминистратор" Тогда
    ЗавершитьРаботуСистемы(0);
КонецЕсли;

Если  НазваниеНабораПрав() <> "Лаборант"   Тогда
Комент="завершить работу";
ЗаписьЖурналаРегистрации(Комент,,,,4);
ЗавершитьРаботуСистемы();
КонецЕсли;

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

Но при входе в программу ничего не вылетает...
Как это можно реализовать????

Написал в главном модуле:
Процедура Сброспользователей()

= Не там написал. Надо в ПриНачалеРаботыСистемы()

+ или через ОбработкаОжидания(ЫЫЫ)
в проце ЫЫЫ пишешь условие, например, наличие пустякового файлика с определенным именем в какой-нть папке, если есть - ЗавершитьРаботуСистемы(0)

А, как это будет реализовываться при запуске, т.е. я вхожу в 1С и мне должно сразу окно выпасть вырубить всех пользователей?

Мегаадминистратор никогда не слышал про отладчик?

А, блин! т.е. через откладчик, с правами мегаадмина кнопкой мыши всех рублю

чего лаборанту делать в БД ?

)))), это понятно, думал, что типа окно само будет вываливаться при заходе в программу)

(3) Вытащи все изо рта и озвучь внятно, что ваяешь?

+8 и кому вопрос, желательно озвучить :)

надо запсутить отключение пользователей, скажем на 10 мин, для обновления базы, вот и пытаюсь это сделать

(10) ищи на просторах как это делается и не майся глупостями.

(10) хмык.. отключить пользователей на 10 мин не получится.
только всех и навеки

Так и ищю! наткнулся на это, а придется и обработкуожиданий ваять еще, понимаю, что это просто, но пока я только учусь

в Поиск по форуму, текст "Отключение пользователей" - бездна вариантов

Спасибо!

(13) Чу, щу пиши с "у". Двоешник :)

Еще раз всем привет! написал:
Лаборант=ИмяПользователя();
Если Лаборант="Анна,Наташа" Тогда
Предупреждение("Доступ закрыт!|Сохраните изменения!",5);
СтатусВозврата(0);  
КонецЕсли;
ОбработкаОжидания("Выйти",15);
процедура Выйти();
СоздатьОбъект ("Выйти");
спрПольз=СоздатьОбъект("справочник.Пользователи");
Если спрПольз.НайтиЭлемент(глПользователь)=1 тогда
глПользователь=СпрПольз.ТекущийЭлемент();
Если глПользователь.РазрешитьРаботу=0 тогда
глПользователь.РазрешитьРаботу=1;
спрПольз.Записать();
Сообщить("Административное отключение системы");
ЗавершитьРаботусистемы();
конецесли;
конецесли;
конецпроцедуры

Но мне вылетает ошибка Глобального модуля, через откладчик запускал, ругается  на процедуру "Выйти"...

Справочник создал

Вот будет имяпользователя АННА, НАТАША - накроется медным тазиком все

http://pro1c.org.ua/index.php?showtopic=501

http://kb.mista.ru/article.php?id=79

Я от туда и беру http://kb.mista.ru/article.php?id=79
   только сейчас пишет эксренно выйти али нет?
Лаборант=ИмяПользователя();
Если Лаборант="Лаборант" Тогда
Предупреждение("Доступ закрыт!|Сохраните изменения!",5);
СтатусВозврата(0);  
КонецЕсли;  

//Процедура ПриНачалеРаботыСистемы()
Если ИмяПользователя()="администратор" Тогда
СтатусВозврата(1);
КонецЕсли;
Если ИмяПользователя()<>"Лаборант" Тогда
Если Константа.Опрос = 2 Тогда
    Предупреждение("РАБОТА В СИСТЕМЕ В ДАННОЕ ВРЕМЯ НЕ ВОЗМОЖНА","2"); Сигнал();
Комент="Попытка несанкционированного доступа";
ЗаписьЖурналаРегистрации(Комент,,,,4);
СтатусВозврата(0);
КонецЕсли;
КонецЕсли;

ОбработкаОжидания("Выйти",20)

короче убрал все и оставил:

      Лаборант=ИмяПользователя();
Если Лаборант="Лаборант" Тогда
Предупреждение("Доступ закрыт!|Сохраните изменения!",5);
СтатусВозврата(0);  
КонецЕсли;  


ОбработкаОжидания("Выйти",20);

Так не ругается:)