MonitorCreateInfo.AuditLogReason

SVB Example

Adding a Quality Control analysis configuration:

Sub Main

    Dim oOM As ObjectManager

    'Reconnect into Enterprise ObjectManager
    Set oOM = New ObjectManager
    oOM.Reconnect Application

    Dim IQCAnalysisConfigCreateInfo As New MonitorCreateInfo
    IQCAnalysisConfigCreateInfo.AuditLogReason = "Adding an IQC Analysis"
    IQCAnalysisConfigCreateInfo.Name = "Weights CHARTS"
    IQCAnalysisConfigCreateInfo.Folder = oOM.FindFolder("/Blake's Materials")
    IQCAnalysisConfigCreateInfo.Profile = oOM.Profiles.Item("/Blake's Materials/Cats")
    IQCAnalysisConfigCreateInfo.MonitorType = swcIQCMonitor

    Dim IQCAnalysisConfig As Monitor
    Set IQCAnalysisConfig = oOM.Monitors.AddEx(IQCAnalysisConfigCreateInfo)

    'Set permissions
    IQCAnalysisConfig.AutoSave = False
    IQCAnalysisConfig.AccessControlList.AddGroup("Administrators", True)
    IQCAnalysisConfig.AccessControlList.AddGroup("Everyone", False)
    IQCAnalysisConfig.AccessControlList.AddUser("Blake", True)

    Dim configUpateInfo As New MonitorUpdateInfo
    configUpateInfo.AuditLogReason = "Setting permissions for the IQC analysis"
    IQCAnalysisConfig.SaveEx(configUpateInfo)

    oOM.Disconnect

End Sub