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…