Learn HP Quick Test Professional Online

In my current project we are executing the QTP scripts from Quality Center through a VB Script i.e we dont manually call QTP or QC. We use the QC OTA to achieve this. Today I came across a situation where some of the tests required Power Builder Add-in to be loaded and some the Web Add-in. I was trying to "google" on how to do this programmatically through VB script but unfortunately did not find anything. Finally I found it in the help documentation itself !!!(Remember how I mentioned earlier how powerful the help documentation is !!!!) Ok....so how do we do this...

We are using two methods here to achieve this
GetAssociatedAddinsForTest and SetActiveAddins

Description
GetAssociatedAddinsForTest Returns the collection of associated add-ins for the specified test without opening the test. This method can be called either before or after you start QuickTest (before or after the Application.Launch method).
SetActiveAddins Instructs QuickTest to load the specified add-ins when it opens. You can use this method only before starting QuickTest (before the Application.Launch statement).

Dim qtApp
Dim blnNeedChangeAddins 'check whether the test's associated add-ins are currently loaded
Dim arrTestAddins ' Declare the variable for storing the test's associated add-ins

Set qtApp = CreateObject("QuickTest.Application")
arrTestAddins = qtApp.GetAssociatedAddinsForTest("C:\Tests\Test1") ' returns an array containing the list of addins associated with this test
' Check if all required add-ins are all already loaded
blnNeedChangeAddins = False ' Assume no change is necessary
For Each testAddin In arrTestAddins ' Iterate over the test's associated add-ins list
If qtApp.Addins(testAddin).Status <> "Active" Then ' If an associated add-in is not loaded
blnNeedChangeAddins = True ' Indicate that a change in the loaded add-ins is necessary
Exit For ' Exit the loop
End If
Next
If qtApp.Launched And blnNeedChangeAddins Then
qtApp.Quit ' If a change is necessary, exit QuickTest to modify the loaded add-ins
End If
If blnNeedChangeAddins Then
Dim blnActivateOK
blnActivateOK = qtApp.SetActiveAddins(arrTestAddins, errorDescription) ' Load the add-ins associated with the test and check whether they load successfully.
If Not blnActivateOK Then ' If a problem occurs while loading the add-ins
MsgBox errorDescription ' Show a message containing the error
WScript.Quit ' And end the automation program.
End If
End If