GefObject.Events (read-only property)

Represents the events configured for the object.
Syntax: Set GefObjectEvents = object.Events
Description: The Events property returns a collection which contains the events that are configured for an object.


Sub GefObject_Events()
    Dim oCimObj As GefObject
    Dim oCimObjEvnts As GefObjectEvents
    Dim oCimObjEvnt As GefObjectEvent
    Set oCimObj = CimGetObject
    Set oCimObjEvnts = oCimObj.Events
    Set oCimObjEvnt = oCimObjEvnts.Item(0)
    MsgBox "The name of the action to run this script " & _
        "was " & oCimObjEvnt.ActionName
End Sub