ALM Quality Center Connectivity

' ALM QC URL
qcServer = "http://" & qcHostName& "/qcbin"

' Create QC Object
 Set gTDConn = CreateObject("tdapiole80.tdconnection")

' Verify for QC object connection status
 If (gTDConn Is Nothing) Then
  MsgBox "gTDConn object is empty"
 End If

 gTDConn.InitConnectionEx qcServer  ' Connect to QC server
 gTDConn.Login qcUser, qcPassword   ' QC Username, Password
 gTDConn.Connect qcDomain, qcProject ' Project, Domain