My Blog List

Saturday, March 17, 2012

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)

1 comment:

  1. This comment has been removed by the author.

    ReplyDelete