GefProcAction.SetToInvokeScript (method)

Configures the action to invoke a script entry point in an object.
Syntax: object.SetToInvokeScript ObjectName, EntryName, ResulPoint, ArgumentExprs, ArgumentSetpoints
ObjectName As String -
EntryName As String -
Optional ResulPoint As String -
Optional ArgumentExprs As SAFEARRAY(BSTR)* -
Optional ArgumentSetpoints As SAFEARRAY(VARIANT_BOOL)* -
Description: Changes the Type of the action to GefActionInvokeScript.

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

The arrayArgumentExpressions parameter is an array of String values. The arrayArgumentSetpoints parameter is an array of Boolean values.


Function DoStuff(A As String) As String
  DoStuff = "Bye"
End Function
Sub DoStuff2(A As String, B As String)
End Sub
Sub GefProcAction_SetToInvokeScript()
    Dim oCimObj As GefObject
    Dim oCimProceduresObj As GefProcedures
    Dim oCimProcedObj As GefProcedure
    Dim oCimProcActs As GefProcActions
    Dim oCimProcActNew As GefProcAction
    Set oCimObj = CimGetObject
    Set oCimProceduresObj = oCimObj.Procedures
    If oCimProceduresObj.Count > 0 Then
        Set oCimProcedObj = oCimProceduresObj.Item(0)
        Set oCimProcActs = oCimProcedObj.Actions
        Dim argExrArray As Variant
        Dim argSetptArray As Variant
        Set argExrArray = CimCreateSafeArray()
        Set argSetptArray = CimCreateSafeArray()
        argExrArray.CreateVector cimVString, 0, 1
        argSetptArray.CreateVector cimVBoolean, 0, 1
        argExrArray.SetVectorElement 0, "TestPointA"
        argSetptArray.SetVectorElement 0, True
        Set oCimProcActNew = oCimProcActs.Add(gefActionInvokeScript)
        oCimProcActNew.SetToInvokeScript oCimObj.Name, "DoStuff", "{ResultVar", argExrArray, argSetptArray}
        Dim Args(0 To 1) As String
        Dim ArgDoSetPoints(0 To 1) As Boolean
        Args(0) ="""Start"""
        Args(1) ="""Finish"""
        ArgDoSetPoints(0) = False
        ArgDoSetPoints(1) = False
        Set oCimProcActNew = oCimProcActs.Add(gefActionInvokeScript)
        oCimProcActNew.SetToInvokeScript oCimObj.Name, "DoStuff2", "", Args, ArgDoSetPoints
    End If
End Sub
See Also: GetInvokeScript