код:
&НаСервереБезКонтекста
Функция ОпредПользователь()
ЭлементСправочника = Справочники.Пользователи.НайтиПоКоду("000000001");
ЭлементОбъект = ЭлементСправочника.ПолучитьОбъект();
Для каждого Пользователи Из ЭлементОбъект.Пользователи Цикл
Если Пользователи.Пользователь = ИмяПользователя() Тогда
Возврат Пользователи.Статус;
КонецЕсли;
КонецЦикла;
Возврат Истина;
КонецФункции
&НаКлиенте
Процедура Проверка()
Если НЕ ОпредПользователь() Тогда
ЗавершитьРаботуСистемы();
КонецЕсли;
КонецПроцедуры