UserCredentialsUnlock

UserCredentialsUnlock (Административные функции)
Объект: Функции общего назначения Статус разработки: Реализована Тип: Функция Обращение к БД: Сервер Исключения: Недостаточно прав, файловый сервер. Визуальность: Нет

• Начальная страница
• Общее описание
• Объекты
• Функции общего назначения

Функция разблокирует доступ к редактору учетных записей пользователей, заблокированному ранее функцией UserCredentialsLock. Для исполнения функции необходимо наличие административных прав.

Синтаксис

UserCredentialsUnlock():<0 или 1 (INT)>

Возвращаемое значение

Возвращает 1 в случае успешной установки разблокировки, иначе возвращает 0.

Примеры

//Фрагмент блокирует доступ пользователя Нарушитель2" к серверу базы данных.
бПольз:="Нарушитель2";

аПольз:="";
аМаш:="";
аВремя:=0;
If not UserCredentialsLock(аПольз,аМаш,аВремя) Then
  Message("Учетные записи заблокированы администратором "+аПольз+" на компьютере "+аМаш+" в "+FormatDate(аВремя,"DD.mm.YYYY hh:tt:ss")+"!","!");
  Exit;
EndIf;
Try
  Стр:=UserCredentialsLoad;
  //Загрузка файла учетных записей в объект Ini-файла
  aIni:=Ini.Create();
  If aIni.AddFromString(Стр) Then
    If not aIni.DoesExist(бПольз+"\") Then
      Message("Пользователь "+бПольз+" не зарегистрирован на сервере!","!");
    ElseIf Number(aIni.GetData(бПольз+"\ifDisabled","0"))<>0 Then
      Message("Пользователь "+бПольз+" уже был заблокирован!","I");
    Else
      //Добавим или обновим переменную ifDisabled. 
      aIni.AddLeaf(бПольз+"\ifDisabled","1");
      Стр:=aIni.StoreToString("");
      //Удалить все комментарии (необязательный шаг)
      Стр:=ReplaceRE(Стр,"^;.*\R","");
      //Сохраним результат на сервере
      If UserCredentialsStore(Стр) Then
        Message("Пользователь "+бПольз+" был успешно заблокирован!","I");
      Else
        Message("Ошибка сохранения учетных записей пользователей!","!");
      EndIf;
    EndIf;
  EndIf;
Finally
  UserCredentialsUnlock();
EndTry;