CimEMEvent.AlarmEvent (function)

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