IMetabaseSecurity.NewSubjectsSearch

NewSubjectsSearch: ISecuritySubjectsSearch;

NewSubjectsSearch: Prognoz.Platform.Interop.Metabase.ISecuritySubjectsSearch;

Sub UserProc;
Var
    MB: IMetabase;
    Sea: ISecuritySubjectsSearch;
    Subjs: ISecuritySubjects;
    Subj: ISecuritySubject;
    i: integer;
Begin
    MB := MetabaseClass.Active;
    Sea := MB.Security.NewSubjectsSearch;
    Sea.NameCriteria := "А*";
    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;

Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Sea: ISecuritySubjectsSearch;
    Subjs: ISecuritySubjects;
    Subj: ISecuritySubject;
    i: integer;
Begin
    MB := Params.Metabase;
    Sea := MB.Security.NewSubjectsSearch();
    Sea.NameCriteria := "А*";
    Sea.SubjectCriteria[SecuritySubjectType.sstUser] := True;
    Sea.SubjectCriteria[SecuritySubjectType.sstGroup] := 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];
            System.Diagnostics.Debug.WriteLine(Subj.Name + ": " + Subj.Description);
        End For;
    End If;
End Sub;