IMetabasePasswordPolicy.UniquenessDegree

Синтаксис

UniquenessDegree: Integer;

Описание

Свойство UniquenessDegree определяет минимальное отличие старого пароля от нового (символов).

Пример

Sub Main;

Var

MB: IMetabase;

MS: IMetabaseSecurity;

MU: IMetabasePolicy;

PassPol: IMetabasePasswordPolicy;

Begin

MB := MetabaseClass.Active;

MS := MB.Security;

MU := MS.Policy;

PassPol := MU.PasswordPolicy;

PassPol.UniquenessDegree := 5;

MS.Apply;

End Sub Main;

После выполнения примера будет установлено минимальное отличие старого пароля от нового в 5 символов.

См. также:

IMetabasePasswordPolicy