ISecuritySnapshot.SaveToFile

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

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;