Techno Logica


Wednesday, January 2, 2008

Connect to Quality Center using Scripting

To Connect QC from QTP using VB Script

Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible = True
qtApp.TDConnection. Connect "URL", "DOMAIN", "PROJECT", "USERNAME", "PASSWORD", False

To get test name from quality center:

Set td=createobject("TDApiOle80.TDConnection.1")
td.InitConnectionEx "http://qc/qcbin"
td.ConnectProjectEx "DOMAIN", "PROJECT","USERNAME", "PASSWORD"
Set tstMgr = td.TreeManager
Set tsttr = tstMgr.NodeByPath("subject\functionality\SUB FOLDER NAME")
Set tsetFact = tsttr.TestFactory
Set tsetList = tsetFact.NewList("")
For Each tset in tsetList
Msgbox ("Test Name = " & tset.Name)
Next


To Find a particular the TestSet from QC :

Dim txtTestSet as String
txtTestSet = "TestSet_01"
Dim tset
tdc = New TDAPIOLELib.TDConnection
tdc.InitConnectionEx("http://server/qcbin")
tdc.Login("usrid", "pwd")
tdc.Connect("DOMAIN", "Project")
Dim tstMgr = tdc.TestSetTreeManager
Dim tsttr = tstMgr.NodeByPath("Root\SubFolder")
Dim tsetFact = tsttr.TestSetFactory
Dim tsetList = tsetFact.NewList("")
For Each tset In tsetList
If LCase(Trim(tset.Name)) = LCase(Trim(txtTestSet)) Then
MsgBox("Test Set Found")
End If
Next

NOTE : TDApiOle80 is for QC 8.0
TDAPIOLELib is for QC 9.0