Metabase: IMetabase;
Свойство Metabase возвращает репозиторий.
Sub main;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
Sna: ISecuritySnapshot;
Log: ISecuritySnapshotLog;
sFile: String;
Begin
MB := MetabaseClass.Active;
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;
End Sub main;
После выполнения примера контур политики безопасности будет сохранен в файл, название которого соответствует названию репозитория.
См. также: