Profiles: IUserProfiles;
Profiles: Prognoz.Platform.Interop.Metabase.IUserProfiles;
The Profiles property returns the collection of the profiles of users, included in the current group.
Each profile contains the information about e-mail addresses, corresponding to the user and additional properties of the user.
Sub UserProc;
Var
Mb: IMetabase;
Group: IMetabaseGroup;
Profs: IUserProfiles;
Prof: IUserProfile;
Begin
Mb := MetabaseClass.Active;
Group := Mb.Security.ResolveName(ADMINISTRATORS) As IMetabaseGroup;
Profs := Group.Profiles;
For Each Prof In Profs Do
Debug.WriteLine(Profile: + Prof.Name);
Debug.WriteLine(Default Email: " + Prof.Email);
End For;
End Sub UserProc;
Execution of the example will output to the development environment console the names of the profiles and e-mail addresses, set in each profile by default, for all users, included in the group of administrators.
The specified procedure is an entry point for the .NET assembly.
Imports System.Diagnostics;
Imports Prognoz.Platform.Interop.Metabase;
Public Shared Sub Main(Params: StartParams);
Var
Mb: IMetabase;
Group: IMetabaseGroup;
Profs: IUserProfiles;
Prof: IUserProfile;
Begin
Mb := Params.Metabase;
Group := Mb.Security.ResolveName(ADMINISTRATORS) As IMetabaseGroup;
Profs := Group.Profiles;
For Each Prof In Profs Do
Debug.WriteLine(Profile: + Prof.Name);
Debug.WriteLine(Default Email: " + Prof.Email);
End For;
End Sub;
Execution of the example will output to the development environment console the names of the profiles and e-mail addresses, set in each profile by default, for all users, included in the group of administrators.
See also: