Hi Claspill,
I have created a .vbs file for execution.
OS=XP,SP3
ALM Patch level=12
Below is Total Code:
Dim QCConnection
Dim objBug
Dim Bug
Set QCConnection = CreateObject("TDApiOle80.TDConnection")
QCConnection.InitConnectionEx "https://XXXX/qcbin"
QCConnection.login "XXXX", "XXXXX"
QCConnection.Connect "XXXXX", "XXXXX"
'============================================
'DefectID = 18
Set BugFactory = QCConnection.BugFactory
Set objList = BugFactory.NewList("")
'For Each objBug In objList
'If objBug.Priority = "" Then
'objBug.Description = "Hello"
'objBug.Post
'End If
'Next
Dim TotBugcnt
TotBugcnt=BugFactory.NewList("").Count
msgbox TotBugcnt
'For i= 1 to TotBugcnt
For each myBug in objList
Set BugFactory = QCConnection.BugFactory
Set BugFilter = BugFactory.Filter
BugFilter.Filter("BG_BUG_ID") = i
Set BugList = BugFilter.NewList
Set myBug = BugList.Item("")---------------------------------------this is line 34.
'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
next