how to load all resource files(function libraries,object
repositories etc) into tests without associating them?

Answer Posted / sandeep

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

Is This Answer Correct ?    0 Yes 1 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

I need to obtain the parent of an object programatically, so if I have: winButton("aButton") I need to obtain the parent part: window("Window1").Dialog("Dialog1") so I can programatically create a string of the full name of the object to call it with an execute statement in QTP I would like to use something like: part[1] = "window(""Window1"")" part[2] = "dialog(""Dialog1"")" so I can do: exeLine = part[1]&"."&part[2]&"."&"winButton(""aButton"")" Execute exeLine Apart from keeping a record of the window/dialog hierarchy is there a parent or path function/ command Thanks Adrian

1816


What is Curd testing?

2088


hi guys, pls tell me for testing institution training hub, hitech city is best or not?

1574


What is a recovery scenario?

797


For which type of projects the iterative model is not suitable?

1666


i have a doubt can anyone tell me where are scripts stored while using QTP.Tell me the exact procedure takes place in real time?like how we call scripts how to proceed after writing scripts?how scripts are executed etc?i heard some use Qc whether others dont use.so tell me whole procedure for both the things it will be a very big help.as i have interview i want to have whole idea on this.its very urgent.

1642


How to use debug tools?

2432


Explain more about the Test Fusion Report of QTP?

803


i have an external excel datasheet where it only contains 3 rows. after qtp executed the code to import the datasheet, the datatable getrowcount method now gives me a different value, lets say 60,000+ instead of only 3. i did not have any values starting from row 4 of my excel file. why is this happening? this also results to the qtp report to load for a very long time.

1770


How to Get the Run-time value of an object under that web app under Test to the local data table sheet of that Action?

4051


Explain the qtp test phases.

804


In keyward driven framework what will be the step for yahoo login page ,inbox logout,plz explain in detail

1730


what is the diffrence bw qtp architectute and qtp framework?

1756


Can an action have 2 shared object repositories associated with them? In that case, if two of them contain the same object, which one will be considered?

834


What are the five challenges you faced in QTP?

2960