QTP - AOM - Open QTP and Connect to QC

'Automation Object Model

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

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

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

'  What ==>  This is a QTP - AOM Script to Open QTP and to Connect with QualityCenter Server

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

' Why ==> To Run scripts (may be multipls tests ...one by one) from Quality Center without opening QTP by means of QTP- AOM 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 

 

' Provide Quality Center Information

oQTP.TDConnection.Connect "QualityCenterURL", "DomainName", "ProjectName", "UserName", "Password", False ' Connect to Quality Center 

 

If oQTP.TDConnection.IsConnected Then 

' Check if the Connection to QC is successful .. If connection is successful 

 MsgBox "Connection to QualityCenter is sucessfully established" 

Else 

    MsgBox  "Connection to QualityCenter is Failed" 

End If 

oQTP.Quit ' Exit QuickTest 

Set oQTP = Nothing ' Release the Application object

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

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