IMetabaseSecurity.NewSubjectsSearch

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    Sea: ISecuritySubjectsSearch;
    Subjs: ISecuritySubjects;
    Subj: ISecuritySubject;
    i: integer;
Begin
    MB := MetabaseClass.Active;
    Sea := MB.Security.NewSubjectsSearch;
    Sea.NameCriteria := "A*";
    Sea.SubjectCriteria(SecuritySubjectType.User) := True;
    Sea.SubjectCriteria(SecuritySubjectType.Group) := True;
    Sea.AreaIncludeDB := True;
    Sea.AreaIncludeNT := True;
    Sea.ExecuteSearch;
    Subjs := Sea.Subjects;
    If Subjs.Count > 0 Then
        For i := 0 To Subjs.Count - 1 Do
            Subj := Subjs.Item(i);
            Debug.WriteLine(Subj.Name + ": " + Subj.Description);
        End For;
    End If;
End Sub UserProc;