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]

replace 'qtApp.Visible = true' with 'qtpApp.Visible = true'

look into 'QuickTest Professional Automation Object Model Reference' in QTP Help for detailed info on this.

---

refer [http://mercuryquicktestprofessional.blog...tml]Basics of AOM[/url]

[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.