IABACAttributes.Save

Save(Writer: IXmlDomElement);

Save: Prognoz.Platform.Interop.MsXml2.IXMLDOMElement;

Sub UserProc;
Var
    ABACAttributes: IABACAttributes;
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Xml: IXmlDomElement;
    XmlDoc: IXmlDomDocument;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    // Получим коллекцию атрибутов групп пользователей
    ABACAttributes := MS.Groups.Attributes;
    // Сохраним коллекцию атрибутов в XML-файл
    XmlDoc := New FreeThreadedDOMDocument60.Create;
    Xml := XmlDoc.createElement("Attributes");
    XmlDoc.appendChild(Xml);
    ABACAttributes.Save(Xml);
    XmlDoc.save("C:\temp\Attributes_Group.xml");
End Sub UserProc;

Imports Prognoz.Platform.Interop.ABAC;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.MsXml2;
…
Public Shared Sub Main(Params: StartParams);
Var
    ABACAttributes: IABACAttributes;
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Xml: IXmlDomElement;
    XmlDoc: FreeThreadedDOMDocument60;
Begin
    MB := Params.Metabase;
    MS := MB.Security;
    // Получим коллекцию атрибутов групп пользователей
    ABACAttributes := MS.Groups.Attributes;
    // Сохраним коллекцию атрибутов в XML-файл
    XmlDoc := New FreeThreadedDOMDocument60.Create();
    Xml := XmlDoc.createElement("Attributes");
    XmlDoc.appendChild(Xml);
    ABACAttributes.Save(Xml);
    XmlDoc.save("C:\temp\Attributes_Group.xml");
End Sub;