Retrieving Test Case name from QC

Retrieving Test Case name from QC

Set td=createobject("TDApiOle80.TDConnection")
td.InitConnectionEx "http://Link/qcbin"
td.ConnectProjectEx "DOMAIN", "PROJECT","USERNAME", "PASSWORD"

Set tstMgr = td.TreeManager
Set tsttr = tstMgr.NodeByPath("Path")
Set tsetFact = tsttr.TestFactory
Set tsetList = tsetFact.NewList("")

For Each tset in tsetList
   Msgbox ("Test Name = " & tset.Name)
Next

td.Disconnect
td.logout
set td=nothing