CimEMEvent.ObjectID (property, read)

Syntax Event.ObjectID
Description String. If the script is invoked from an object event, the Object ID invoking the action is returned. If the script is invoked from a non-object event, an empty string is returned
Example 
Sub Main()
   Dim event as CimEMEvent
   Set event = CimGetEMEvent()
   PointSet "LAST_OBJECT_ID", event.ObjectID
End Sub