ISecuritySnapshot.SaveToFile

SaveToFile(FileName: String);

SaveToFile(FileName: System.String);

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Sna: ISecuritySnapshot;
    Log: ISecuritySnapshotLog;
    sFile: String;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    Sna := MS.NewSnapshot;
    // Сохраним политику безопасности в файл
    sFile := "c:\" + Sna.Metabase.Name + ".pppolicy";
    Sna.SaveToFile(sFile);
    Log := Sna.Log;
    While Not Log.Eof Do
        Debug.WriteLine(Log.Message);
        Log.Next;
    End While;
    // Освободим лицензию
    Lic := Null;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params : StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Sna: ISecuritySnapshot;
    Log: ISecuritySnapshotLog;
    sFile: String;
    Lic: Object;
Begin
    MB := Params.Metabase;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
    MS := MB.Security;
    Sna := MS.NewSnapshot();
    // Сохраним политику безопасности в файл
    sFile := "c:\" + Sna.Metabase.Name + ".pppolicy";
    Sna.SaveToFile(sFile);
    Log := Sna.Log;
    While Not Log.Eof() Do
        System.Diagnostics.Debug.WriteLine(Log.Message);
        Log.Next();
    End While;
    // Освободим лицензию
    Lic := Null;
End Sub;