GefProcAction.GetExecuteCommand (method)

Retrieves the configuration information for the action.
Syntax: Boolean = object.GetExecuteCommand ( Command, Arguments, WorkingDir, RunMinimized, Message )
Command As BSTR* -
Arguments As BSTR* -
WorkingDir As BSTR* -
RunMinimized As VARIANT_BOOL* -
Message As BSTR* -
Description: This method is valid only if the Type of the action is GefActionExecuteCommand.

The arguments correspond to the fields in the action panel of the Procedure Information dialog box.


Sub GefProcAction_GetExecuteCommand()
    Dim oCimObj As GefObject
    Dim oCimProcs As GefProcedures
    Dim oCimProc As GefProcedure
    Dim oCimProcActs As GefProcActions
    Dim oCimProcAct As GefProcAction
    Dim strCommand As String
    Dim strArg As String
    Dim strDir As String
    Dim strMessage As String
    Dim bMinMax As Boolean
    Set oCimObj = CimGetObject
    Set oCimProcs = oCimObj.Procedures
    If oCimProcs.Count > 0 Then
        Set oCimProc = oCimProcs.Item(0)
        If Not oCimProc Is Nothing Then
            Set oCimProcActs = oCimProc.Actions
            If oCimProcActs.Count > 0 Then
                Set oCimProcAct = oCimProcActs.Item(0)
                If oCimProcAct.Type = gefActionExecuteCommand Then
                    If oCimProcAct.GetExecuteCommand(strCommand, strArg, strDir, bMinMax, strMessage) = True Then
                        MsgBox "The command is " & strCommand
                        MsgBox "The argument is " & strArg
                        MsgBox "The directory is " & strDir
                        MsgBox "The show minimized is " & bMinMax
                        MsgBox "The confirmation message is " & strMessage
                    End If
                End If
            End If
        End If
    End If
End Sub