GefProcedure.FailureMessage (property)

Gets and sets the failure message for the procedure as a String.
Syntax: String = object.FailureMessage
object.FailureMessage = String
Description: The FailureMessage property gets and sets the failure message for the procedure. This message will display if any one the defined actions fails to execute.


Sub GefProcedure_FailureMessage()
    Dim oCimObj As GefObject
    Dim oCimProcedure As GefProcedure
    Set oCimObj = CimGetObject
    Set oCimProcedure = oCimObj.Procedures.Item(0)
    oCimProcedure.FailureMessage = "The event failed"
    MsgBox "The failure message for the first procedure is " & _
        """" & oCimProcedure.FailureMessage & """"
End Sub