qc 二次开发 用 VBScript 上载附件

On Error Resume Next
Set tdconnction = CreateObject("TDApiOle80.TDConnection")
tdconnction.InitConnectionEx "http://lab11:8888/qcbin"
tdconnction.ConnectProjectEx "DEFAULT","QualityCenter_Demo","alex_qc",""
Set BugFact = tdconnction.BugFactory
'根据ID返回需要的附件
Set bugObj = BugFact.Item(21)
Set attachFact = bugObj.Attachments
Set attachList = attachFact.NewList("")
Set attachObj = attachList.Item(1)
Set AttachmentStorage = attachObj.AttachmentStorage
'下载到地址
AttachmentStorage.ClientPath="F:\a\"
AttachmentStorage.Load attachObj.Name,True
if Err=0 Then
wscript.echo "true"
else
wscript.echo "false"
End If
'wscript.echo "结束"