Loading QRS files at Run time

[UrmilaSaha]

Hi,

I have generated script from Test Settings window(QTP 9.2), collected the script specific to Recovery tab and made a VBS function. I have executed the function and observed the Recovery Tab of Test Settings window. Scenario Names are displayed but "Activate recovery Scenarios:" drop down doesn't show the mode("OnEveryStep") that we have given in the Script. Its showing default option 'On error'. Is any thing that I need to include in the script? Please provide work around for this.

And also provide(if there is work around) alternative solution to load QRS file scenarios at run time.

Following is the function that I have executed

Sample Script:
--------------

Code:

Public Function Qrs()

Dim App
Set App = CreateObject("QuickTest.Application")

App.Test.Settings.Recovery.Enabled = True
App.Test.Settings.Recovery.SetActivationMode "OnEveryStep"
App.Test.Settings.Recovery.Add "C:\Automation\Registration\Recovery Scenarios\Security.qrs", "SecurityAlert", 1
App.Test.Settings.Recovery.Item(1).Enabled = True

End Function

Thanks,
Vijay




Hello There , I have created the recovery Scenario. At UFT Setting ,  Setting-->Recovery--> Add recovery Scenario I have add all the Recovery Scenario And  Its working fine when I am Executing Locally. But According to my frame work its not working when I am executing from ALM.     So I am trying to Load Recovery Scenario at Runtime.  I am getting below error    ""TestRetailing" is not a valid recovery Scenario"

Below my  Code:

Function  LoadRecovery()
    
Set qtApp = CreateObject("QuickTest.Application")
Set qtTestRecovery = qtApp.Test.Settings.Recovery
    
qtTestRecovery.Add "C:\TEST\Project\RecoveryScenario\Test Retailing note.qrs", "TestRetailing" , 1
qtTestRecovery.Add "C:\TEST\Project\RecoveryScenario\Test Note.qrs", "TestNote" , 2


For intIndex = 1 To qtTestRecovery.Count
qtTestRecovery.Item(intIndex).Enabled = True
Next
qtTestRecovery.Enabled = true

qtTestRecovery.SetActivationMode "OnError"
Set qtApp = Nothing 

    
End Function