QTP - AOM - Open QTP and Create New Test

'Automation Object Model

'****************************************************************************

'****************************************************************************

' GAReddy @ OneTestingCenter @ QTP - AOM (Automation Object Model)

' What ==>  This is a QTP - AOM Script to Open QTP and to Start a New Test

' How ==> Need QuickTest.Application Automation Object to do so

' Why ==> To Create a New Test Script

' Author : GAReddy @ OneTestingCenter @ QTP

'******************************************************************************

'******************************************************************************

Dim oQTP ' Declare the application object variable 

Set oQTP = CreateObject("QuickTest.Application") ' Create the application object 

 

oQTP.Launch ' Start QuickTest 

oQTP.Visible = True ' Make the QuickTest application visible 

 

oQTP.New ' To Create a New Test

' To Open a Driver Script

' To Open any existing Test Script

' oQTP.Open "D:/OneTestingCenter/QTP/AprilBatch\DriverScript",True,True

 

Set oQTP = Nothing ' Release the Application object 

'**************************************************************************

'**************************************************************************