SaveToFile(FileName: String);
FileName - путь к файлу политики безопасности, в который будет сохранена политика безопасности (*.pppolicy).
Метод SaveToFile сохраняет политику безопасности в файл.
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:\test.pppolicy";
Sna.SaveToFile(sFile);
Log := Sna.Log;
While Not Log.Eof Do
Debug.WriteLine(Log.Message);
Log.Next;
End While;
End Sub main;
После выполнения примера в файл будет сохранен контур политики безопасности.
См. также: