HashedPasswords: IHashedPasswords;
HashedPasswords: Prognoz.Platform.Interop.IMetabase.IHashedPasswords;
The HashedPasswords property determines parameters of password hashing.
Sub UserProc;
Var
MB: IMetabase;
MBSecurity: IMetabaseSecurity;
MBPolicy: IMetabasePolicy;
MBPasswordPolicy: IMetabasePasswordPolicy;
HPass: IHashedPasswords;
Begin
Mb := MetabaseClass.Active;
MBSecurity := MB.Security;
MBPolicy := MBSecurity.Policy;
MBPasswordPolicy := MBPolicy.PasswordPolicy;
HPass := MBPasswordPolicy.HashedPasswords;
HPass.IsON := True;
HPass.ExcludeAdmin := True;
MBSecurity.Apply;
End Sub UserProc;
After executing the example the password hashing will be enabled and the admin password is not hashed.
Imports Prognoz.Platform.Interop.Metabase;
Public Sub Main(Params: StartParams);
Var
MB: IMetabase;
MBSecurity: IMetabaseSecurity;
MBPolicy: IMetabasePolicy;
MBPasswordPolicy: IMetabasePasswordPolicy;
HPass: IHashedPasswords;
Begin
MB := Params.Metabase;
MBSecurity := MB.Security;
MBPolicy := MBSecurity.Policy;
MBPasswordPolicy := MBPolicy.PasswordPolicy;
HPass := MBPasswordPolicy.HashedPasswords;
HPass.IsON := True;
HPass.ExcludeAdmin := True;
MBSecurity.Apply();
End Sub;
After executing the example the password hashing will be enabled and the admin password is not hashed.
See also: