Getting run time error while executing the QTP script in command prompt.

[vishruth143]

Hi All,

I'm getting the below error when I tried to run the QTP script via command prompt.

Error Message: cmd_QTP.vbs<13,1> Microsoft VBScript runtime error: Type mismatch: 'Run'

In command prompt i'm using the command

cscript //nologo cmd_QTP.vbs

Code:

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim qtTest 'As QuickTest.Test ' Declare a Test object variable
Dim qtResultsOpt 'As QuickTest.RunResultsOptions ' Declare a Run Results Options object variable

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start QuickTest
qtApp.Visible = True ' Make the QuickTest application visible

qtApp.Open "C:\Users\Vi$hruth143\Desktop\QTP\Scripts\LogIn", True ' Open the test in read-only mode

' set run settings for the test
Set qtTest = qtApp.Test
[b]qtTest.Run qtResultsOpt ' Run the test[/b]

WScript.StdOut.Write "Status is: " & qtTest.LastRunResults.Status ' Check the results of the test run
qtTest.Close ' Close the test

Set qtTest = Nothing ' Release the Test object
Set qtApp = Nothing ' Release the Application object

I doubt the error is on code line 13 which is higlighted in the above code.

Please help me to get this resolved.

Thanks
Vishruth

[vinod123]

What you said was correct. I think i have solved the issue you are facing. Just check this code
first you have to create an object and if not able to create. check if your running Admin mode

Code:

Dim App
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
Dim QTP_Tests(2)
QTP_Tests(1) = "C:\Documents and Settings\thomas\Desktop\Tests\paypage hits"
QTP_Tests(2) = "C:\Documents and Settings\thomas\Desktop\Tests\digitsecure net docs"
'Creating the RunResultsOptions object. It is a collection of properties that indicate preferences for the run results. E.g. ResultsLocation property as used below which tells the path in which the run results will be stored.
Set res_obj = CreateObject("QuickTest.RunResultsOptions")
For i = 1 to UBound (QTP_Tests)
App.Open QTP_Tests(i), True
Set QTP_Test = App.Test
res_obj.ResultsLocation = QTP_Tests(i) & "\Res25" ' Set the results location
'Using the Run method. Run Method runs the open test or business component and creates results in the specified file or Quality Center path. A Boolean value - true or false can be set. Indicates whether the Test.Run statement waits until the end of the run before performing the next statement in the automation script. Default=True.
QTP_Test.Run res_obj, True
QTP_Test.Close
Next
App.Quit
Set res_obj = nothing
Set QTP_Test = nothing
Set App = nothing