The below code will show you how to upload a defect using the OTA API and VBScript
'================================================ set tdc = createobject("TDApiOle80.TDConnection") tdc.InitConnectionEx "http://yourURL/qcbin" tdc.Login "yourName","yourPassword" tdc.Connect "yourDomain","yourProject" '============================================ DefectID = 17 Set BugFactory = tdc.BugFactory Set BugFilter = BugFactory.Filter BugFilter.Filter("BG_BUG_ID") = DefectID Set BugList = BugFilter.NewList Set myBug = BugList.Item(1) 'Just need to know the qc field name value myBug.Field("BG_STATUS") = "Fixed" myBug.Post Set BugFilter = Nothing Set myBug = Nothing Set BugFactory = Nothing Set BugFilter = Nothing