very newbie question

[rudya]

finally got this to work as a vb script

Code:

Dim qtApp
dim DataTable
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start QuickTest
qtApp.Visible = false ' Make the QuickTest application invisible
qtApp.Open "c:\fromDK"  ' open test
qtapp.test.DataTable.Import ("C:\name.xls") 'import acct to test
qtapp.test.run
MsgBox qtapp.Test.LastRunResults.Status 'see result of attempt
qtapp.quit

the xls file contains an id and a password and the msgbox displays pass or fail


but now I want to see if I can input the parameters to the data table from the command line of the vb script so I looked at automating parameter input and tried this from the automation reference

'Description:
'
'This example opens a test with predefined parameters,' gets a collection of parameter definitions, Loops on it and display each parameter details,
' gets a collection of run-time parameters, change the value of one of them, run the test with parameters,
' after the test run - display the value of one of the out parameters.
'
'Assumptions:
' the test D:\Tests\Mytest contain in parameter called "InParam1" and out parameter called "OutParam1"
'************************************************************************************************************************

Code:

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim pDefColl 'As QuickTest.ParameterDefinitions ' Declare a Parameter Definitions collection
Dim pDef ' As QuickTest.ParameterDefinition ' Declare a ParameterDefinition object
Dim rtParams 'As QuickTest.Parameters ' Declare a Parameters collection
Dim rtParam ' As QuickTest.Parameter ' Declare a Parameter object
'Dim cnt, Indx As Integer
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start QuickTest
'qtApp.Visible = True ' Make the QuickTest application visible
qtApp.Open "c:\fromDK3"
' Retrieve the parameters collection defined for the test.
Set pDefColl = qtApp.Test.ParameterDefinitions
cnt = pDefColl.Count
Indx = 1
' Display the names and values of each of the parameters in the collection.
Msgbox(cnt)    ‘   this always shows 0
While Indx <= cnt
    Set pDef = pDefColl.Item(Indx)
    MsgBox "Param name: " & pDef.Name & "; Type: " & pDef.Type & "; InOut: " & pDef.InOut & "; Description: " _
        & pDef.Description & "Default value: " & pDef.DefaultValue
    Indx = Indx + 1
Wend
Set rtParams = pDefColl.GetParameters() ' Retrieve the Parameters collection defined for the test.
Set rtParam = rtParams.Item("InParam1") ' ****bombs here
rtParam.Value = "Hello" ' Change the parameter value.
qtApp.Test.Run , True, rtParams ' Run the test with changed parameters.
MsgBox rtParams.Item("OutParam1").Value ' Display the value of an output parameter after the test runs.
quit qtapp

get element not found even though when I open up the test in qt it shows a data table like this
InParam1 OutParam1 C D E
InValue OutValue


so I am unable to get the count of items in the datatable or view parameters
any suggestions?