MSFT_ParameterEvent.Message Property

Gets the descriptive message associated with the event.

 string MSFT_ParameterEvent.Message

Access

Read/write

Return Value

String

Examples

The following example shows the use of the Message property.

'*********************************************************************
' Routine: Function SendEventForNonWindowsComputer
' Purpose: Generates an event for a non-Windows computer.
' Arguments: The server running MOM, computer GUID, event source, event ID,
'            event message text.
' Returns: The result from calling InsertEventsIntoWorkflow.
'
'**********************************************************************
Const TYPE_NONWINDOWS = 8192

Function SendEventForNonWindowsComputer(strMOMServer, strComputerGUID, strSource, lngEventID, strMessage)
    Dim objComputer, objEventClass, objGeneratedEvent
    Dim arrEvents(0)
    Dim lngResult, lngLastEventAdded

    lngResult = -1
    lngLastEventAdded = -1

    Set objComputer = GetObject("WinMgmts://" & strMOMServer & "\root\MOM:MSFT_Computer='" & strComputerGUID & "'")

   If Not(objComputer Is Nothing) Then
        If (objComputer.Type = TYPE_NONWINDOWS) Then

            ' create a new event and set its property values
            Set objEventClass = GetObject("WinMgmts://" & strMOMServer & "\root\MOM:MSFT_ParameterEvent")

            Set objGeneratedEvent = objEventClass.SpawnInstance_()

            objGeneratedEvent.EventSource = strSource
            objGeneratedEvent.EventNumber = lngEventID
            objGeneratedEvent.Message = strMessage

            ' add the event to an array
            Set arrEvents(0) = objGeneratedEvent

            ' submit the event array for the non-Windows computer
            lngResult = objComputer.InsertEventsIntoWorkflow(arrEvents, lngLastEventAdded)

        End If
    End If

    Set objComputer = Nothing
    Set objEventClass = Nothing
    Set objGeneratedEvent = Nothing

    SendEventForNonWindowsComputer = lngResult
End Function
  

Requirements

Platforms: Requires Windows 2000 Server or later

Version: Requires MOM 2000 SP1 or later

See Also

MSFT_ParameterEvent Class | MSFT_Computer.InsertEventsIntoWorkflow Method