IDomain.Name

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    User: IMetabaseUser;
    St: IStations;
    Dm: IDomains;
    Domain: IDomain;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    // Получим параметры доменного пользователя
    User := MS.ResolveName("DOMAIN_USER") As IMetabaseUser;
    St := User.Stations;
    Dm := St.Domains;
    // Выведем в консоль параметры доменного пользователя
    Domain := Dm.Item(0);
    Debug.WriteLine("Домен: " + Domain.Name);
    Debug.WriteLine("Описание: " + Domain.Comment);
    Debug.WriteLine("Доступ к рабочим станциям: ");
    For i := 0 To Domain.Stations.Count - 1 Do
        Debug.WriteLine(Domain.Stations.Item(i).Name);
    End For;
End Sub UserProc;