Skip to main content

Connect QC from QTP and Execute Scripts

Here is the sample code to connect QC and execute scripts stored in QC using QTP.
  1. Dim QTP_App      ' Declare the Application object variable
  2. Dim QTP_Test     ' Declare a Test object variable
  3. Dim QTP_Results  ' Declare a Run Results Options object variable
  4. Dim QC_Path      ' Declare QC Path and assigned actual path
  5.      
  6. ' Create the QTP Application object
  7. Set QTP_App = CreateObject("QuickTest.Application")
  8. ' Start QuickTest
  9. QTP_App.Launch
  10. ' Make the QuickTest application visible
  11. QTP_App.Visible = True
  12.  
  13. 'Connect to Quality Center
  14. QTP_App.TDConnection.Connect QC_Path, False
  15.  
  16.    
  17. 'Function to open QTPScript and run that script
  18. Function OpenScriptRunTest (ScriptName,TestSetName)
  19.    QTP_App.Open QC_Path&ScriptName,True
  20.    QTP_App.Options.Run.ImageCaptureForTestResults = "OnError"
  21.    QTP_App.Options.Run.RunMode = "Fast"
  22.    QTP_App.Options.Run.ViewResults =True
  23.    Set QTP_Test = QTP_App.Test
  24.    QTP_Test.Settings.Run.IterationMode = "allIterations"
  25.    QTP_Test.Run.StartIteration = 1
  26.    QTP_Test.Run.EndIteration = 1
  27.    QTP_Test.Run.OnError = "NextStep"
  28.    Set QTP_Results = CreateObject("QuickTest.RunResultsOptions")
  29.    QTP_Results.TDRunName="Run_Sample"
  30.    QTP_Results.TDTestInstance=1
  31.    QTP_Results.TDTestSet=QC_Path&TestSetName
  32.    QTP_App.Test.Run qtRunResultsOptions
  33.    QTP_App.Close    
  34. End Function
  35.  
  36. 'Run a test
  37. Call OpenScriptRunTest (ScriptName,TestSetName)

Comments

  1. This comment has been removed by the author.

    ReplyDelete

Post a Comment

Popular posts from this blog

QTP - Object Identification - Prerequesties

While starting a new project or proof of concept or after new QTP installation, we would face the issue in identifying objects as QTP built objects like WinList, WebEdit, etc.; instead everything will be identified as WinObject.

Here are some steps to ensure you did the environment setup RIGHT before start automating.
Did you enabled required Add-ins only while launchingDid you selected "Record >> Record and Run Settings" - This should be based on what type of application you are working with
Windows app - Windows >> Record and run test on any windows applications. Web app - Web >> Record and run test on any open browser.
Did you tried to launch UFT/QTP and then AUT.If its web, ensure browser zoom level set to 100%Try disabling the protected mode in IE for web.Launch UFT and AUT using RUN AS ADMINISTRATORAlso see the Object Identification Methods if you are interested.

Change IE Browser ZOOM settings

Lot of UI automation testers could have faced this problem as we could change the zoom settings while operating manually for our convenience and forgot to reset to 100%.
But our QTP and some other related tools would operate the browser perfectly if browser zoom is 100%. So wee need to change the zoom before start to run the scripts. Its better to have a code snippet in our framework to change this zoom setting right?
Here we go...

1. We can simply change the Registry values before Invoking IE
Function ChangeRegistry Dim objShell Set objShell = CreateObject("WScript.Shell")  objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor", "100000", "REG_DWORD" Set objShell = Nothing EndFunction This option is very useful. But in real time, lot of customers could have restricted write access to windows registry. So we can try other options.

2. Use IE COM object and Change Settings
Function ChangeIEZoom Dim intZoomLevel, objIE  intZoo…

QTP - Common error messages

Always I am seeing  many of my friends asking for help if any error occurs while running script in QTP without googling for help. How much troubleshooting you guys are doing will directly reflect your knowledge on the tool. I agree, no one knows each and every error occurs in the software. But we can improve our knowledge by googling and doing workarounds...
Whenever the question "How much level you know QTP?" arrows me, always I am comfortable with the answer "below 10%". But after answered, my mind will have an inner thought like, What are the things I have to learn to fulfill the answer I have told because I never used lot of features in QTP.

Here I am listing out some of the errors, situations and what might be the original issue things etc. I hope this will give you some ideas to improve your debug ability and to solve your errors. Kindly correct me If I am wrong in any point.

Type mismatch:
- Mostly doing operations with different data types without doing type co…