Vbscript 如何从QC/ALM获取业务组件实例号

我正在QTP上开发BPT框架，对于一个测试用例，我多次使用同一个组件。我想从QC->Testplan->TestCase->Business component中获取业务组件实例号。根据实例编号，我将从excel工作表中读取所需的组件参数

---

谢谢。

以下代码适合我：

Set TestTree = TestSet.TSTestFactory
Set TestList = TestTree.NewList("")

For Each TSTest In TestList

    Set Test = TSTest.Test
    Set objTestFactory = tdc.TestFactory

    Set tFilter = objTestFactory.Filter
    tFilter.Filter("TS_TEST_ID") = Test.ID
    Set tList = objTestFactory.NewList(tFilter.Text)

    Dim objTest
    For Each tst In tList
        If tst.Type = "BUSINESS-PROCESS" Then
        Set objTest = tst
        Exit For
        End If
    Next


    If objTest Is Nothing Then

            Else
        Dim BPTest As BusinessProcess
        Set BPTest = objTest
        BPTest.Load

        ' Get list if component instance from the Test
        Set components = BPTest.BPComponents
        Set Component = components.Item(1)
        For i = 1 To BPTest.BPComponents.Count
            componentName = components.Item(i).Name
            componentInstanceId = components.Item(i).ID
            ComponentId = components.Item(i).Component.ID
        Next
    End if
Next

此代码将从测试实验室级别获取详细信息，并一直到业务组件级别。目前正在提取组件名称和id。您可以根据需要修改代码

请访问教程。它很好地解释了解决方案的每一个细节