Thursday

BPT Component Parameters Names and their values using OTA




Set qtApp = CreateObject("QuickTest.Application")


Set objBPTComp=qtApp.BusinessComponent

Set parametersDF=objBPTComp.ParameterDefinitions



For i=1 to parametersDF.count

                If parametersDF.item(i).inOut=0 Then ‘To identify input parameter

                           msgbox parametersDF.Item(i).Name & " = " & parameter(parametersDF.Item(i).Name)

                End If

Next


Happy Testing!

No comments:

Post a Comment