Syntax

Event.AlarmEvent

Description

Returns CimEMAlarmEvent. Returns the Alarm Event object that triggered the action, or empty if action was not triggered by an alarm.

Example

Sub Main()

   Dim event as CimEMEvent

   Set event = CimGetEMEvent()

   If event.Type = EM_ALARM_GEN then

       Dim alarmEvent as CimEMAlarmEvent

       Set AlarmEvent = event.AlarmEvent()

       ' Process the alarm

   End If

End Sub

CIMPLICITY Extensions to Basic