We can use QC/ALM OTA Object "TDApiOle80.TDConnection" to establish connection. Please see the code below
Syntax
Dim ALMConnection
'Return the TDConnection object.
Set ALMConnection= CreateObject("TDApiOle80.TDConnection")
ALMConnection.InitConnectionEx "http:///qcbin"
ALMConnection.login "<username>", "<password>"
'DEFAULT = Domain, QualityCenter_Demo = Project
ALMConnection.Connect "DEFAULT", "QualityCenter_Demo"
Note: "http://qcbin" url should be replace with the correct ALM Server URL. User may enter they Quality center / ALM username and password in the "<username>" and "<password>"
Regards,
Sreenu Babu
Syntax
Dim ALMConnection
'Return the TDConnection object.
Set ALMConnection= CreateObject("TDApiOle80.TDConnection")
ALMConnection.InitConnectionEx "http:///qcbin"
ALMConnection.login "<username>", "<password>"
'DEFAULT = Domain, QualityCenter_Demo = Project
ALMConnection.Connect "DEFAULT", "QualityCenter_Demo"
Note: "http://qcbin" url should be replace with the correct ALM Server URL. User may enter they Quality center / ALM username and password in the "<username>" and "<password>"
Regards,
Sreenu Babu
No comments:
Post a Comment