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
Can any one tell me about "Mapping Repository Parameter Values" and why we use it....??How to use it???Please, tell the preconditions also...........???? Thanks in Advance
What r the different filters in defect in quality center
what type of automation is follwed in the project?
How many number of actions possible in qtp?
What is the basic concept of qtp?
How you can find the absolute value of the number in qtp?
Can you brief the hurdles you faced during Automation testing?
There is an built in window application in qtp9.1,i.e.Flight4.0.i want to implement the recovery maneger on it.How can i do this?
What is the difference between shared and local object repository?
Should have experience in framework means?
Can we write winrunner language i.e TSL in QTP tool?
How to export quicktest professional results to an .xls file?
i need to add 1000 users in a domain i written the script for that and it is running successfuly but the problem is that my system is not the user of that domain in which i have to add users so for adding users in that domain i have to install qtp on that another system, can anybody suggest me the way to add those users from my system ultimately i want to know how to access remote computer through script
How to read a text file from QC using QTP. I would like to do something like this. But instead read a file from QC and NOT from my local drive. Set fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("C:\test.txt", ForReading) Thanks
How to save your test using quicktest professional?