EternalPassword: Boolean;
EternalPassword: boolean;
The EternalPassword property determines whether password has expiry date.
Available values:
· True. Password has no expiry date.
· False. Password has expiry date.
Add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
Us: IMetabaseUsers;
User: IMetabaseUser;
SecCat: ISecurityCategory;
SecLevel: ISecurityLevel;
Begin
// Get active repository
MB := MetabaseClass.Active;
// Get security settings for the first user
Us := MB.Security.Users;
User := Us.Item(0);
// Determine whether password has an expiry date
User.EternalPassword := True;
// Apply security policy
MB.Security.Apply;
End Sub UserProc;
After executing the example the password will not have an expiry date.
The requirements and result of the Fore.NET example execution match with those in the Fore example.
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Us: IMetabaseUsers;
User: IMetabaseUser;
SecCat: ISecurityCategory;
SecLevel: ISecurityLevel;
Begin
// Get active repository
MB := Params.Metabase;
// Get security settings for the first user
Us := MB.Security.Users;
User := Us.Item[0];
// Determine whether password has an expiry date
User.EternalPassword := True;
// Apply security policy
MB.Security.Apply();
End Sub;
See also: