QTP Automate

[eroshan]

Hi All

I want completely automate the QTP test , that means i want to start the QTP automatically and load(Open) the test file and run the test. I can write a .bat file to open the tool but i was stuck when i try to open my test file. Do you have any idea about like this matter ??

Can QTP handled command lines ? (By windows commands)

Thanks

[Saket]

hi eroshan,
it would be always better if you can paste exactly, where are you stuck , a piece of code in you bat file can give the better idea.
although you can do this using vbscript.
copy the code below and save as .vbs file, you can execute this vbs file from command prompt.

Code:

Dim qtpApp Dim qtpTest Set qtpApp = CreateObject("QuickTest.Application") qtpApp.Open TestPath, True Set qtpTest = qtpApp.Test qtpTest.Run

search this forum for more help on this.

[eroshan]

[quote='Saket' pid='7359' dateline='1252473659']
hi eroshan,
it would be always better if you can paste exactly, where are you stuck , a piece of code in you bat file can give the better idea.
although you can do this using vbscript.
copy the code below and save as .vbs file, you can execute this vbs file from command prompt.

Code:

Dim qtpApp Dim qtpTest Set qtpApp = CreateObject("QuickTest.Application") qtpApp.Open TestPath, True Set qtpTest = qtpApp.Test qtpTest.Run

I am very new for vbs Can you explain above code.
where should i place my test file name
where should i place path of the test file

Thanks

[Saket]

Sorry, my mistake I should mention this in my reply
replace TestPath with your Test file path.
Use this modified code

Code:

Dim qtpApp Dim qtpTest Set qtpApp = CreateObject("QuickTest.Application") qtApp.Visible = true qtpApp.Open <<Your Test Path>>, True Set qtpTest = qtpApp.Test qtpTest.Run Set qtTest = Nothing Set qtApp = Nothing

[eroshan]

[quote='Saket' pid='7362' dateline='1252475940']

Hi Saket


Sorry its not working , it gives this error

Line : 4
Char : 1
Object required : 'qtApp'
Code : 800A01A8
Source : Microsoft VBScript error


This is my code

Code:

Dim qtpApp Dim qtpTest Set qtpApp = CreateObject("QuickTest.Application") qtApp.Visible = true qtpApp.Open "C:\QA Tools\eroshan\Test1", True Set qtpTest = qtpApp.Test qtpTest.Run Set qtTest = Nothing Set qtApp = Nothing

do you have any idea ?
can you tell me what is this "QuickTest.Application" for?

Thanks

[Saket]

[eroshan]

[quote='Saket' pid='7364' dateline='1252480395']

Hi Saket

it works , thank you very much Saket.

[eroshan]

[quote='eroshan' pid='7365' dateline='1252481459']
[quote='Saket' pid='7364' dateline='1252480395']

Hi Saket

There is a small question about vbs. i want to close the QTP tool window after run the the test. What is the line should i add to the script??

This is the script =>

Code:

Dim qtpApp Dim qtpTest Set qtpApp = CreateObject("QuickTest.Application") qtpApp.Visible = true qtpApp.Open "C:\QA Tools\eroshan\Test1", True Set qtpTest = qtpApp.Test qtpTest.Run Set qtTest = Nothing Set qtApp = Nothing

Thanks

[Saket]

Add below code after qtpTest.Run statement

Code:

qtpTest.Close qtpApp.quit Set qtpTest = Nothing Set qtpApp = Nothing

---

eroshan - always wrap your code with proper tags to make the post mmore readable. Refer Forum Help.