Download defects from QC to Excel using QC OTA
Dim tdcSet tdc = CreateObject(“TDApiOle80.TDConnection”) Dim sUserName, sPasswordsUserName = “” ‘sPassword = “” ‘ Dim sDomain, sProjectsDomain = “” ‘sProject = “” ‘ tdc.InitConnectionEx “http://qc..com/qcbin” ‘tdc.Login sUserName, sPassword tdc.Connect sDomain, sProject If (tdc.LoggedIn <> True) Then MsgBox “QC User Authentication Failed” ‘WScript.QuitEnd If Fn_Defects_To_Excel() ‘======================================== ‘To download defects from QC to excel sheet ‘========================================= Sub…