Use QTP object model for this purpose. 

Create qtp.test object. 

Under this object you will get several settings like 
RECOVERY scenario, ADD IN, VBS functions etc. 

Make a .vbs script of these settings
Open any QTP Script and then run this code. 

QTP Script will have changed resource settings. See this 
sample script which does similar task

Public Job_Name_Array1
Public Excel_file_path 

Excel_file_path = "G:\DATA FOR GRAPHICS JOBS.xls"

DefineValue




Dim qtApp 'As QuickTest.Application ' Declare the 
Application object variable
Set qtApp = CreateObject("QuickTest.Application") ' Create 
the Application object
qtApp.Launch ' Start QuickTest
qtApp.Visible = False    ' Make the QuickTest application 
visible
Dim qcfolderpath 
qcfolderpath = "Subject\CAESAR II 5.00 QA PLAN\2 MAIN 
MENU\2.1 STATIC\2.1.1 INPUT PROCESSOR\INPUT GRAPHICS 
VIEW\Input Graphics QTP 9.5"

For nn = 0 To UBound (Job_Name_Array1,1)  

'For nn = 2 To 1


'qtApp.Open "[QualityCenter] Subject\CAESAR II 5.00 QA 
PLAN\QA JOBS WITH NEW FRAMEWORK\STATIC JOBS\BUILD CLEARANCE 
WO FUNCTIONS\" & Job_Name_Array1 (nn), False ' Open the test

qtApp.Open "[QualityCenter] "& qcfolderpath & "\" & 
Job_Name_Array1 (nn), False ' Open the test


For i=1 to qtApp.Test.Actions.Count
    Set qtRepositories = qtApp.Test.Actions
(i).ObjectRepositories ' Get the object repositories 
collection object of the "Login" action
   
	qtRepositories.Removeall

 	Set qtRepositories = Nothing 
Next    




Set qtTestRecovery = qtApp.Test.Settings.Recovery ' Return 
the Recovery object for the current test

If qtTestRecovery.Count > 0 Then ' If there are any default 
scenarios specified for the test
    qtTestRecovery.RemoveAll ' Remove them
End If



Set qtTestRecovery = Nothing ' Release the Recovery object

qtApp.Test.Save ' Save the test

Next 

   
qtApp.Quit ' Exit QuickTest
Set qtApp = Nothing ' Release the Application object



Function DefineValue()

    DIM objExcelApplication2 
    'DIM objWorkSheet 
    DIM Sheet2
    DIM CellData2
    Dim strExePath2
    Dim strDrv2
    Dim WshShell2
'    strDrv2 = fnGetVirtualDrive()
    
    'MsgBox strDrv
    On Error Resume Next
    Set objExcelApplication2 = CreateObject
("Excel.Application")    '....Create Excel Object
    If Err.Number <> 0 Then
       Exit Function
    End If
    
    On Error Resume Next
   ' objExcelApplication2.Workbooks.open ("G:\DATA FOR 
STATIC JOBS.xls")
    objExcelApplication2.Workbooks.open (Excel_file_path)
    
    If Err.Number <> 0 Then
        MsgBox "Please ensure that you have run the 
install.bat file before this run session"
    	Exit Function
    End If
    
  ReDim Job_Name_Array1 (0)   

For xyz = 2 To 14 

 CellData2 = objExcelApplication2.Worksheets("Sheet1").Cells
(xyz,2).Value 
 
 Value1 = Trim (CellData2) 
 
 Job_Name_Array1(xyz-2) = Value1
 
 ReDim Preserve Job_Name_Array1(xyz)
 
 'MsgBox "JobName" &( xyz-2) & "is      " & Job_Name_Array1
(xyz-2)

Next


        
objExcelApplication2.ActiveWorkbook.Close '....close the 
work book
    	objExcelApplication2.Application.Quit 	 '....quits 
Excel

    	Set objExcelApplication2 = Nothing   '....Clear all 
the references to the objects  
    	Set objWorkSheet2 = Nothing
		
 


End Function