Connect QC through API using VB script

Hi All,
Here I am mentioning the script that will connect to Quality Center. For this,your system must have QC api dll/QC client installed.

REM Define the Domain name
DomainName =”DEFAULT”

REM ‘Define the ProjectName
ProjectName =”Automation”
REM ‘ login username
UserName =”Rajeev Nandwani”
REM ‘ login password
Password =”RNSystem00″
REM ‘ Server name with Port
ServerName =”QAserver:8080″

Rem Create QC Connection Object
Set objTDConnection = CreateObject(“TDApiOle80.TDConnection.1”)
Rem Connect with server
QCServerName =”http://”& ServerName &”/qcbin”
objTDConnection.InitConnectionEx QCServerName
Rem Connect with Project
objTDConnection.ConnectProjectEx DomainName, ProjectName, UserName, Password

Rem Check login Success or not

If objTDConnection.loggedin Then

msgbox “Connect successfully ”
else
msgbox “not connect with Quality Center Check username /Password/Domain name /Project Name ”
End If

Set objTDConnection = nothing