UserCredentialsUnlock
Revision as of 12:20, 3 January 2024 by 1>Admin (Created page with "{{infobox function |name=UserCredentialsUnlock |object=Функции общего назначения |caption=Административные функции |type=1 |s...")
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;