EternalPassword: Boolean;
EternalPassword: boolean;
Свойство EternalPassword определяет, имеет ли пароль срок действия.
Допустимые значения:
· True. Пароль не имеет срока действия;
· False. Пароль имеет срок действия.
Добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
MB: IMetabase;
Us: IMetabaseUsers;
User: IMetabaseUser;
SecCat: ISecurityCategory;
SecLevel: ISecurityLevel;
Begin
// Получаем активный репозиторий
MB := MetabaseClass.Active;
// Получаем настройки безопасности для первого пользователя
Us := MB.Security.Users;
User := Us.Item(0);
// Задаём, имеет ли пароль срок действия
User.EternalPassword := True;
// Применяем политику безопасности
MB.Security.Apply;
End Sub UserProc;
В результате выполнения примера пароль станет без срока действия.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Us: IMetabaseUsers;
User: IMetabaseUser;
SecCat: ISecurityCategory;
SecLevel: ISecurityLevel;
Begin
// Получаем активный репозиторий
MB := Params.Metabase;
// Получаем настройки безопасности для первого пользователя
Us := MB.Security.Users;
User := Us.Item[0];
// Задаём, имеет ли пароль срок действия
User.EternalPassword := True;
// Применяем политику безопасности
MB.Security.Apply();
End Sub;
См. также: