Below is an example showing how alarm redirection may be disabled from a mimic script. The script retrieves a list of all points in the database that contain "Script Disable Alarm Redirection" in their full names and disables alarm redirection for each point in the list.

DISCLAIMER: Please note this is an example only and should only be used in a test environment. The script should not be used on a live production system without making the necessary adjustments and testing for each application.

Sub DisableAlarmRedirection

Dim DGRS, DGRSRows, DGRSColNames, oPoint

Set DGRS = Server.Query("SELECT FULLNAME FROM CDBPoint WHERE FullName LIKE '%Script Disable Alarm Redirection%'")

If Not(DGRS.Error) Then
    DGRows = DGRS.Rows
    DGColNames = DGRS.ColumnNames
    For r = 0 To (DGRS.RowCount - 1)       
        Set oPoint = Server.FindObject(DGRows(r,0))
        oPoint.Interface.AlarmRedirection=False            
    Next
Else
    Msgbox DGRS.ErrorMessage, vbCritical + vbOKOnly, "Error in SQL Command" 
End If

End Sub

Publié pour:Schneider Electric Belgium