QTP -18 QTP Automation Object Model

18 QTP Automation Object Model

Concept: QTP provides a COM interface which allowsautomation QTP itself. E.g. launch QTP, configure QTP, run a script etc

18.1 Object Model (ref “QuickTest Project” in QTP Manual Help)

Application: --Test --Options --TDConnection --Folders --Addins --BusinessComponent(Test) --UI

18.2How can we use AOM to run a QTP test case?

 e.g. Sample code isas following:

Dim qtApp  Set qtApp = CreateObject("QuickTest.Application")  qtApp.Launch ' Start QuickTest  qtApp.Visible = True  qtApp.Open "C:\Tests\Test1", True  qtApp.Test.Run  Set qtApp = Nothing Dim qtApp Dim qtApp Dim qtApp Dim qtApp Dim qtApp Dim qtApp Dim qtApp Dim qtApp 'As QuickTest.Application ' Declare the Application object variable Dim qtStdLauncher 'As QuickTest.StdLauncher ' Declare an Windows Applications launcher variable Dim qtStdApp 'As QuickTest.StdApplication ' Declare as StdApplication object variable Dim strAdded ' Declare a string variable for the added applications Set qtApp = CreateObject( "QuickTest.Application" ) ' Create the Application object ' Preparare application and test qtApp.SetActiveAddins Array () ' Remove all add-ins from the collection so that QuickTest opens with no add-ins loaded qtApp.Launch ' Start QuickTest qtApp.Visible = True ' Make the QuickTest application visible qtApp.Test.SetAssociatedAddins Array () ' Remove all add-ins from the test's associated add-ins list. Set qtStdLauncher = qtApp.Test.Settings.Launchers.Item( "Windows Applications" ) ' Return the Windows Applications launcher qtStdLauncher.Active = True ' Instruct QuickTest to open applications when the record session begins ' Set the applications under test qtStdLauncher.Applications.AddApplication "C:\Viewer.exe" , "C:\" ' Add an application qtStdLauncher.Applications.AddApplication "D:\Apps\Editor.exe" , "D:\Apps" ' Add another application ' Save changes and clean up qtApp.Test.SaveAs "C:\Tests\NewTest" ' Save the test qtApp.Quit ' Exit QuickTest Set qtStdLauncher = Nothing ' Release the Windows Applications launcher object Set qtApp = Nothing ' Release the Application object Dim qtApp 'As QuickTest.Application ' Declare the Application object variable Dim qtStdLauncher 'As QuickTest.StdLauncher ' Declare an Windows Applications launcher variable Dim qtStdApp 'As QuickTest.StdApplication ' Declare as StdApplication object variable Dim strAdded ' Declare a string variable for the added applications Set qtApp = CreateObject( "QuickTest.Application" ) ' Create the Application object ' Preparare application and test qtApp.SetActiveAddins Array () ' Remove all add-ins from the collection so that QuickTest opens with no add-ins loaded qtApp.Launch ' Start QuickTest qtApp.Visible = True ' Make the QuickTest application visible qtApp.Test.SetAssociatedAddins Array () ' Remove all add-ins from the test's associated add-ins list. Set qtStdLauncher = qtApp.Test.Settings.Launchers.Item( "Windows Applications" ) ' Return the Windows Applications launcher qtStdLauncher.Active = True ' Instruct QuickTest to open applications when the record session begins ' Set the applications under test qtStdLauncher.Applications.AddApplication "C:\Viewer.exe" , "C:\" ' Add an application qtStdLauncher.Applications.AddApplication "D:\Apps\Editor.exe" , "D:\Apps" ' Add another application ' Save changes and clean up qtApp.Test.SaveAs "C:\Tests\NewTest" ' Save the test qtApp.Quit ' Exit QuickTest Set qtStdLauncher = Nothing ' Release the Windows Applications launcher object Set qtApp = Nothing ' Release the Application object Dim qtApp 'As QuickTest.Application ' Declare the Application object variable Dim qtStdLauncher 'As QuickTest.StdLauncher ' Declare an Windows Applications launcher variable Dim qtStdApp 'As QuickTest.StdApplication ' Declare as StdApplication object variable Dim strAdded ' Declare a string variable for the added applications Set qtApp = CreateObject( "QuickTest.Application" ) ' Create the Application object ' Preparare application and test qtApp.SetActiveAddins Array () ' Remove all add-ins from the collection so that QuickTest opens with no add-ins loaded qtApp.Launch ' Start QuickTest qtApp.Visible = True ' Make the QuickTest application visible qtApp.Test.SetAssociatedAddins Array () ' Remove all add-ins from the test's associated add-ins list. Set qtStdLauncher = qtApp.Test.Settings.Launchers.Item( "Windows Applications" ) ' Return the Windows Applications launcher qtStdLauncher.Active = True ' Instruct QuickTest to open applications when the record session begins ' Set the applications under test qtStdLauncher.Applications.AddApplication "C:\Viewer.exe" , "C:\" ' Add an application qtStdLauncher.Applications.AddApplication "D:\Apps\Editor.exe" , "D:\Apps" ' Add another application ' Save changes and clean up qtApp.Test.SaveAs "C:\Tests\NewTest" ' Save the test qtApp.Quit ' Exit QuickTest Set qtStdLauncher = Nothing ' Release the Windows Applications launcher object Set qtApp = Nothing ' Release the Application object

18.3How to use AOM to change the starting and ending iteration?

' set run settings for the test Set qtTest = qtApp.Test qtTest.Settings.Run.IterationMode = "rngIterations" ' Run iterations 2 to 4 qtTest.Settings.Run.StartIteration = 2 qtTest.Settings.Run.EndIteration = 4 qtTest.Settings.Run.OnError = "NextStep" ' run next step when error occurs Dim qtApp Dim qtApp Dim qtApp Dim qtApp Dim qtApp Dim qtApp Dim qtApp Dim qtApp 'As QuickTest.Application ' Declare the Application object variable Dim qtStdLauncher 'As QuickTest.StdLauncher ' Declare an Windows Applications launcher variable Dim qtStdApp 'As QuickTest.StdApplication ' Declare as StdApplication object variable Dim strAdded ' Declare a string variable for the added applications Set qtApp = CreateObject( "QuickTest.Application" ) ' Create the Application object ' Preparare application and test qtApp.SetActiveAddins Array () ' Remove all add-ins from the collection so that QuickTest opens with no add-ins loaded qtApp.Launch ' Start QuickTest qtApp.Visible = True ' Make the QuickTest application visible qtApp.Test.SetAssociatedAddins Array () ' Remove all add-ins from the test's associated add-ins list. Set qtStdLauncher = qtApp.Test.Settings.Launchers.Item( "Windows Applications" ) ' Return the Windows Applications launcher qtStdLauncher.Active = True ' Instruct QuickTest to open applications when the record session begins ' Set the applications under test qtStdLauncher.Applications.AddApplication "C:\Viewer.exe" , "C:\" ' Add an application qtStdLauncher.Applications.AddApplication "D:\Apps\Editor.exe" , "D:\Apps" ' Add another application ' Save changes and clean up qtApp.Test.SaveAs "C:\Tests\NewTest" ' Save the test qtApp.Quit ' Exit QuickTest Set qtStdLauncher = Nothing ' Release the Windows Applications launcher object Set qtApp = Nothing ' Release the Application object Dim qtApp 'As QuickTest.Application ' Declare the Application object variable Dim qtStdLauncher 'As QuickTest.StdLauncher ' Declare an Windows Applications launcher variable Dim qtStdApp 'As QuickTest.StdApplication ' Declare as StdApplication object variable Dim strAdded ' Declare a string variable for the added applications Set qtApp = CreateObject( "QuickTest.Application" ) ' Create the Application object ' Preparare application and test qtApp.SetActiveAddins Array () ' Remove all add-ins from the collection so that QuickTest opens with no add-ins loaded qtApp.Launch ' Start QuickTest qtApp.Visible = True ' Make the QuickTest application visible qtApp.Test.SetAssociatedAddins Array () ' Remove all add-ins from the test's associated add-ins list. Set qtStdLauncher = qtApp.Test.Settings.Launchers.Item( "Windows Applications" ) ' Return the Windows Applications launcher qtStdLauncher.Active = True ' Instruct QuickTest to open applications when the record session begins ' Set the applications under test qtStdLauncher.Applications.AddApplication "C:\Viewer.exe" , "C:\" ' Add an application qtStdLauncher.Applications.AddApplication "D:\Apps\Editor.exe" , "D:\Apps" ' Add another application ' Save changes and clean up qtApp.Test.SaveAs "C:\Tests\NewTest" ' Save the test qtApp.Quit ' Exit QuickTest Set qtStdLauncher = Nothing ' Release the Windows Applications launcher object Set qtApp = Nothing ' Release the Application object Dim qtApp 'As QuickTest.Application ' Declare the Application object variable Dim qtStdLauncher 'As QuickTest.StdLauncher ' Declare an Windows Applications launcher variable Dim qtStdApp 'As QuickTest.StdApplication ' Declare as StdApplication object variable Dim strAdded ' Declare a string variable for the added applications Set qtApp = CreateObject( "QuickTest.Application" ) ' Create the Application object ' Preparare application and test qtApp.SetActiveAddins Array () ' Remove all add-ins from the collection so that QuickTest opens with no add-ins loaded qtApp.Launch ' Start QuickTest qtApp.Visible = True ' Make the QuickTest application visible qtApp.Test.SetAssociatedAddins Array () ' Remove all add-ins from the test's associated add-ins list. Set qtStdLauncher = qtApp.Test.Settings.Launchers.Item( "Windows Applications" ) ' Return the Windows Applications launcher qtStdLauncher.Active = True ' Instruct QuickTest to open applications when the record session begins ' Set the applications under test qtStdLauncher.Applications.AddApplication "C:\Viewer.exe" , "C:\" ' Add an application qtStdLauncher.Applications.AddApplication "D:\Apps\Editor.exe" , "D:\Apps" ' Add another application ' Save changes and clean up qtApp.Test.SaveAs "C:\Tests\NewTest" ' Save the test qtApp.Quit ' Exit QuickTest Set qtStdLauncher = Nothing ' Release the Windows Applications launcher object Set qtApp = Nothing ' Release the Application object

18.4How to use AOM to launch QTP on a remote machine

Const remoteMachineIP = "127.2.3.4" Set qtApp = CreateObject("QuickTest.Application", remoteMachineIP)

Note: the remote machine has set QTP to “Allow other mercuryproducts…” model.