CONNECTING THE ‘QUALITY CENTER’ WITH THE HELP OF VB SCRIPT

‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

‘CONNECTING THE ‘QUALITY CENTER’ WITH THE HELP OF VB SCRIPT

‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Public Function funcConnectQC()

‘Create QC Object

Set objQCConnect = CreateObject(“TDApiOle80.TDConnection”)

‘Connecting to QC

objQCConnect.InitConnectionEx "http:///qcbin"

‘Connecting to Project and Domain

objQCConnect.ConnectProjectEx "", "", "", ""

‘Disconnect QC

objQCConnect.Disconnect

‘Logout QC
objQCConnect.Logout

‘Releasing the Connection
objQCConnect.ReleaseConnection

‘Releasing the Variables

Set objQCConnect = Nothing

End Function

‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx