Retrieves the configuration information for the action. | |
Syntax: | Boolean = object.GetExecuteCommand ( Command, Arguments, WorkingDir, RunMinimized, Message ) |
Parameters: |
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. Example: 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 |