CONNECTING 'QUALITY CENTER' THROUGH 'QTP APPLICATION'



‘**********************************************************************************************************************************
'Connecting 'Quality Center' through QTP
‘**********************************************************************************************************************************

'Launching the QTP Application
Set objQTP = CreateObject("QuickTest.Application")
objQTP.Visible = True
objQTP.Launch

'Connect to Quality Center
'Parameters needs to be changed
objQTP.TDConnection.Connect "QCUrl", "DOMAIN", "PROJECT", "USERNAME", "PASSWORD", False

'Quitting the QTP Applicaton
objQTP.Quit

'Releasing the Variables
Set objQTP = Nothing

‘**********************************************************************************************************************************