IMetabaseSecurity.NewSnapshot

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    SE: IMetabaseSecurity;
    SS: ISecuritySnapshot;
    Log: ISecuritySnapshotLog;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    // Check out license to work with security manager
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    SE := MB.Security;
    // Create a backup object
    SS := SE.NewSnapshot;
    // Apply security policy from file
    SS.ApplyFromFile("C:\test.pppolicy");
    Log := SS.Log;
    Debug.WriteLine("ApplyState SubjectName SubjectType Message");
    While Not Log.Eof Do
        Select Case (Log.ApplyState As Integer)
            Case 0 : Debug.Write("None ");
            Case 1 : Debug.Write("Create ");
            Case 2 : Debug.Write("Change ");
            Case 3 : Debug.Write("Error ");
            Case 4 : Debug.Write("Deleted ");
        End Select;
        Debug.Write(Log.SubjectName + " ");
        Select Case (Log.SubjectType As Integer)
            Case 1 : Debug.Write("User ");
            Case 2 : Debug.Write("Group ");
        End Select;
        Debug.Write(Log.Message);
        Log.Next;
        Debug.WriteLine("");
    End While;
    // Save changes
    SE.Apply;
    // Check in license
    Lic := Null;
End Sub UserProc;