IDomains.Add

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

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    User: IMetabaseUser;
    Dms: IDomains;
    Dm: IDomain;
    Sts: IStations;
    St: IStation;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    // Получим параметры доменного пользователя
    User := MS.ResolveName("DOMAIN_USER") As IMetabaseUser;
    Sts := User.Stations;
    Dms := Sts.Domains;
    // Откроем доступ пользователю к рабочей станции в заданном домене
    Dm := Dms.Add("DOMAIN_TEST");
    Sts := Dm.Stations;
    Sts.Refresh;
    St := Sts.FindByName("WORKSTATION");
    St.Included := True;
    // Сохраним изменения
    MS.Apply;
    // Освободим лицензию
    Lic := Null;
End Sub UserProc;