Metabase: IMetabase;
The Metabase property returns the repository.
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;
After executing this example the security policy contour is saved in the file, the name of which corresponds to the repository name.
See also: