Test automation with : QTP

VB Script to connect to Import the data from Database to Excel

2008-07-18T06:41:04Z

Dim cnt

Set cnt = CreateObject("ADODB.Connection")

cnt.Provider = "SQLOLEDB"

cnt.ConnectionString= "Driver={SQL Server};Server=127.0.0.1;Database=Northwind;UID=sa;PWD="

cnt.Open

Set recordSet = CreateObject("ADODB.Recordset")

Set recordSet1=cnt.Execute("Select * from Employees")

Set objStream=CreateObject("ADODB.Stream")

�

recordSet1.Save objStream,1

�

�

Set objExcel=CreateObject("Excel.Application")

Set objSheet=CreateObject("Excel.Sheet")

objSheet.Application.visible=true

objSheet.activesheet.cells (1,1).CopyFromRecordset recordSet1

objSheet.Saveas "C:tests.xls"

objExcel.quit

Set objSheet =Nothing

recordSet1.Close

�

How to prepare and appear for QTP certification exam

2008-07-17T06:48:16Z

�� Hi , there are different QTP certification tests and here I have given the details of how to prepare and appear the exam

AIS -HP Quality Center v9.2 :

To achieve this credential you need to pass 1 core exam and 1 elective exam.

1) Core Exam is �HP Quality Center 9.2 Software Exam�

� Exam # HP0-M15

� Details, sample questions/ Exam preparation guide can be found here

ftp://ftp.hp.com/pub/hpcp/epgs/HP0-M15_EPG.pdf

� Registration details can be found here http://h10017.www1.hp.com/certification/...erilt.html

� Test fees is US$150.00 or GBP�73.00.

� You can also register for �optional� supporting course �Using Quality Center 9.2 Instruction led course spanning 1 day. They offer this course for EMEA, APAC and US regions. There is one more option there for organizations wanting to arrange training in campus.

http://h10017.www1.hp.com/certification/...dcode=c122

2)Elective exam no 1 is �HP QuickTest Professional 9.2 Software�

� Exam #: HP0-M16

� Details, sample questions/Exam preparation guide can be found here ftp://ftp.hp.com/pub/hpcp/epgs/HP0-M16_EPG.pdf

� Registration details can be found here http://h10017.www1.hp.com/certification/...erilt.html

� Test fees is US$150.00 or GBP�73.00.

� You can also register for �optional� supporting course �Using QuickTest Professional 9.2 and Advanced QuickTest Professional 9.2� it is an instruction led course spanning 4 days. Again, they offer this course for EMEA, APAC and US regions. There is one more option there for organizations wanting to arrange training in campus.

http://h10017.www1.hp.com/certification/...dcode=c122 3)Elective exam no 2 is �HP WinRunner 9.2 Software�

� Exam #: HP0-M12

� Details, sample questions/Exam preparation guide can be found here ftp://ftp.hp.com/pub/hpcp/epgs/HP0-M12_EPG.pdf

� Registration details can be found here http://h10017.www1.hp.com/certification/...erilt.html

� Test fees is US$150.00 or GBP�73.00.

� You can also register for �optional� supporting course �Using WinRunner 9.2� it is an instruction led course spanning 2 days. Again, they offer this course for EMEA, APAC and US regions. There is one more option there for organizations wanting to arrange training in campus.

http://merc-training.cce.hp.com/main/tra...N=99294250 �Exam Details ASE- HP Quality Center v9.2 :

To achieve this credential you need to pass 1 core exam and 1 elective exam

1)Core Exam is �Implementing HP Quality Center Software�

� Exam #: HP0-M81

� Details, sample questions/ Exam preparation guide can be found here

ftp://ftp.hp.com/pub/hpcp/epgs/HP0-M81_EPG.pdf

� Registration details can be found here

http://merc-training.cce.hp.com/main/eme.../index.cfm

� Test fees vary according to region and local currencies.

http://merc-training.cce.hp.com/main/eme...ionID=4755

� You can also register for �optional� supporting course �Using Quality Center 9.2 and QC 9.2: Project Planning and Customization �. It is an instruction led course spanning 3 days. They offer this course for EMEA, APAC and US regions. There is one more option there for organizations wanting to arrange training in campus.

2)Elective Exam is �Test Scripting using HP QuickTest Professional Software�

� Exam #: HP0-M80

� Details, sample questions/ Exam preparation guide can be found here

ftp://ftp.hp.com/pub/hpcp/epgs/HP0-M80_EPG.pdf

� Registration details can be found here

http://merc-training.cce.hp.com/main/eme.../index.cfm

� Test fees vary according to region and local currencies.

http://merc- training.cce.hp.com/main/emea/certification/certification_schedule.cfm?CertificationID=4753

You can also register for �optional� supporting course �Using QuickTest Professional 9.2 and Advanced QuickTest Professional 9.2 �. It is an instruction led course spanning 3 days and 2 days respectively. They offer this course for EMEA, APAC and US regions. There is one more option there for organizations wanting to arrange training in campus.

http://h10017.www1.hp.com/certification/...dcode=c132

3)Elective Exam no 2 is �Test Scripting using HP WinRunner Software�

� Exam #: HP0-M82

� Details, sample questions/ Exam preparation guide can be found here

ftp://ftp.hp.com/pub/hpcp/epgs/HP0-M82_EPG.pdf

� Registration details can be found here

http://merc-training.cce.hp.com/main/eme.../index.cfm

� Test fees vary according to region and local currencies.

http://merc-training.cce.hp.com/main/eme...ionID=4754

You can also register for �optional� supporting course �Using Winrunner 9.2 and Advanced WinRunner 9.2 �. It is an instruction led course spanning 2 days and 2 days respectively. They offer this course for EMEA, APAC and US regions. There is one more option there for organizations wanting to arrange training in campus.

http://h10017.www1.hp.com/certification/...dcode=c132�

Please check the following links for further details

http://h10017.www1.hp.com/certification/about_exams.html#one

http://h10017.www1.hp.com/certification/exam_registration.html#five

http://learnloadrunner.com/forums/qtp-certification-f-8.html��

How to Ragister for the QTP certification Exam

2008-07-17T06:20:08Z

�� Types of Exams and Registration Details :

Types of Exams :To achieve an HP Certified Professional Program credential, you are required to take, and pass, specific exam(s). There are three different exam types. Test Center exams (HP0), Performance-based exams (also HP0) and Web-based exams (HP2 or HP3). All are computer-based; some are delivered via a network of Authorized Test Centers, while some can be taken via the Internet at your own desk.In order to register for any exam, you will need to have a valid HP Student ID and a Prometric ID.

�� An HP Student ID is a personal ID number assigned to you by your HP regional certification or training office.

How do I obtain a HP Student ID if I do not have one?

The process for obtaining your HP Student ID varies from region to region.

Americas :� www.hp.com/certification/americas/active_exams.html

Asia Pacific : http://192.170.77.229/hpcp/English/SelectCountry.aspx?pUrl=ProfileCreate.aspx

In the above link �you select your country of residence in Asia pacific and register to get the HP student ID

Europe, Middle East and Africa�:http://certification.portal.emea.hp.com/Registration/registration.asp�Japanhttp://192.170.77.229/hpcp/Japan/ProfileCreate.aspx�

What is a Prometric ID?

A Prometric Testing ID is a 9 digit (numeric or alpha-numeric) ID assigned to you by Prometric when you schedule your first exam online or via the call center registration method. This id is also used to maintain your testing history with Prometric.

�� You can get the Prometric ID by resigistering in the following link

�� https://www.register.prometric.com/CreateProfile.asp?cookie%5Ftest=1

Method of payment: The accepted mode of payment is credit card (AMEX, MasterCard, or Visa) or by using a voucher number, or by promotional code. They do not accept payment by company or personal check.

How to select the text in a web edit field ( text box)

2008-07-17T05:15:12Z

Hi ,

�� I want to select the text in a web edit field . Please help me how can I do that .

Thanks

Lavanya

How to capture the status text of a browser

2008-07-17T05:09:33Z

Hi ,

�� I want to capture the status text of a browser. Please help me. Thanks in advance

Lavanya

VB script to compare two excel sheets

2008-07-16T08:48:59Z

ExcelFilePath1 = InputBox("Please Enter the Path of first Excel File")

�� Set fso = CreateObject("Scripting.FileSystemObject")

�� If (fso.FileExists(ExcelFilePath1) = false )Then

�� msgbox� ExcelFilePath1 & " doesn't exist."

�� wscript.quit

�� End If

ExcelFilePath2 = InputBox("Please Enter the Path of second Excel File")�

If (fso.FileExists(ExcelFilePath2) = false )Then

�� msgbox� ExcelFilePath2 & " doesn't exist."

�� wscript.quit

End If

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = false

Set objWorkbook1 = objExcel.Workbooks.Open(ExcelFilePath1)

Set objWorkbook2 = objExcel.Workbooks.Open(ExcelFilePath2)

Set objWorksheet1= objWorkbook1.Worksheets(1)

Set objWorksheet2= objWorkbook2.Worksheets(1)

�� For Each cell In objWorksheet1.UsedRange

�� If cell.Value <> objWorksheet2.Range(cell.Address).Value Then

��

'Highlights in green color if any changes in cells (for the first file)

�� cell.Interior.ColorIndex = 4

'Highlights the same cell in the Second file

objWorksheet2.range(cell.Address).interior.colorIndex = 4

��

�� Else

�� cell.Interior.ColorIndex = 0

�� End If

�� Next

ObjExcel.displayAlerts = False�

objExcel.Save

objExcel.quit

set objExcel=nothing

msgbox "It is Done"

File Handling in QTP

2008-07-10T14:18:10Z

What is FSO?

�� FSO stands for File System Object. This is used to support text file creation and manipulation through the TextStream object and is contained in the Scripting type library (Scrrun.dll)The FSO Object Model has a rich set of properties, methods and events to process folders and files.

How to create a file?

�� We first create a FSO object using CreateObject and then create a text file using CreateTextFile.For Example: Suppose you want to create a file called "test.txt" located in C:

Dim fso, file, file_location

file_location = "C:file_location"

Set fso = CreateObject(�Scripting.FileSystemObject�)

Set file = fso.CreateTextFile(file_location, True) // True--> file is to be overwritten if it already exists else false� We would use the same example for the rest of this post.

�

�How to open a file?

�� Set file= fso.OpenTextFile("C:file_location", ForWriting, True)

�//2nd argument can be ForReading, ForWriting, ForAppending

//3rd argument is "True"

if new file has to be created if the specified file doesn�t exist else false, blank signify false.

How to read content from a file?

�� Use ReadLine() method

For example:

Set file= fso.OpenTextFile("C:file_location", ForReading, True)

//2nd argument should always be "ForReading" in order to read contents from a file

Do while file.AtEndofStream <> True��

data = file.ReadLine()��

� msgbox dataLoop

How to write content to a file?

�� You can use� Write() or WriteLine() Methods to write text into a file. The difference between the Write() and WriteLine() Method is that the latter automatically inserts a new line character while the former doesn�t insert a new line character.

� For example:

� Set file= fso.OpenTextFile("C:file_location", ForWriting, True) //

�2nd argument should always be "ForWriting" in order to write contents to a filefile.Write("This is a place to get all your qtp") file.Write("questions and answers solved.")//Output will be: This is a place to get all your qtp questions and answers solved.�whilefile.WriteLine("This is a place to get all your qtp") file.Write("questions and answers solved.")//Output will be: This is a place to get all your qtpquestions and answers solved.

How to delete content?

�� Use DeleteFile() method to delete a file from a particular locationFoe Example:

�� file_location = "C:file_location"

Set fso = CreateObject(�Scripting.FileSystemObject�)

fso.DeleteFile(file_location

How to write AOM scripts?

2008-07-10T14:17:02Z

You need to understand that the very root of QT AOM is Application Object. Every automation script begins with the creation of the QuickTest "Application" object. Creating this object does not start QuickTest. It simply provides an object from which you can access all other objects, methods and properties of the QuickTest automation object model.You can create only one instance of the Application object. You do not need to recreate the QuickTest Application object even if you start and exit QuickTest several times during your script. Once you have defined this object you can then successfully work and perform operations on other objects given in Quick Test Pro > Documentation > QuickTest Automation Reference.For ex: Let us connect to TD QC using AOM and open a script "qtp_demo"Dim qt_obj 'Define a Quick Test object

qt_obj = CreateObject("Quick Test.Application") ' Instantiate a QT Object. It does not start QTP.qt_obj.launch ' Launch QT

qt_obj.visible ' Make QT visible qt_obj.TDConnection.Connect "http://tdserver/tdbin", _ 'Referencing TDConnection Object

"TEST_DOMAIN", "TEST_Project", "Suri", "Testing", False ' Connect to Quality Center If qt_obj.TDConnection.IsConnected Then ' If connection is successful

�� qt_obj.Open "[QualityCenter] Subjecttestsqtp_demo", False ' Open the test

Else

�� MsgBox "Cannot connect to Quality Center" ' If connection is not successful, display an error message.

End IfTo quickly generate an AOM script with the current QTP settings. Use the Properties tab of the Test Settings dialog box (File > Settings) OR the General tab of the Options dialog box (Tools > Options) OR the Object Identification dialog box (Tools > Object Identification). Each contain a "Generate Script" button. Clicking this button generates a automation script file (.vbs) containing the current settings from the corresponding dialog box. You can run the generated script as is to open QuickTest with the exact configuration of the QuickTest application that generated the script, or you can copy and paste selected lines from the generated files into your own automation script.

What is QuickTest Automation Object Model? Some places where we can use AOM

2008-07-10T14:15:30Z

This is a small list of places (but not limited to) where we can use AOM. Thumb Rule - Use it at any place where you find yourself doing repetitive tasks while using QTP.

AOM can come handy when you have a large no of scripts to be uploaded to QC. A simple script can save you hours of manual work!

Use AOM to initialize QTP options and settings like add-ins etc.

You can use AOM to call QTP from other application: For ex: You can write a macro for calling QTP from excel.

Caution: AOM should be used outside of QTP and not within the script (during playback). Though there is no harm using it inside but some of the AOM statements might fail.

Sample Description and how to write the descriptive programming

2008-07-10T14:11:35Z

��Introduction to Descriptive Programming:

Descriptive programming is used when we want to perform an operation on an object that is not present in the object repository. There can be various valid reason to do so. We will discuss them later in this article.

How to write Descriptive Programming?

There are two ways in which descriptive programming can be used

1. By giving the description in form of the string arguments.

2. By creating properties collection object for the description.

1. By giving the description in form of the string arguments.

This is a more commonly used method for Descriptive Programming.

You can describe an object directly in a statement by specifying property:=value pairs describing the object instead of specifying an object�s

name. The general syntax is:

TestObject("PropertyName1:=PropertyValue1", "..." , "PropertyNameX:=PropertyValueX")

TestObject�the test object class could be WebEdit, WebRadioGroup etc�.

PropertyName:=PropertyValue�the test object property and its value. Each property:=value pair should be separated by commas and quotation

marks. Note that you can enter a variable name as the property value if you want to find an object based on property values you retrieve during a run session.

Consider the HTML Code given below:

<--!input type="�textbox�" name="�txt_Name�"-->

<--!input type="�radio�" name="�txt_Name�"-->

Now to refer to the textbox the statement would be as given below

Browser(�Browser�).Page(�Page�).WebEdit(�Name:=txt_Name�,�html tag:=INPUT�).set �Test�

And to refer to the radio button the statement would be as given below

Browser(�Browser�).Page(�Page�).WebRadioGroup(�Name:=txt_Name�,�html tag:=INPUT�).set �Test�

If we refer to them as a web element then we will have to distinguish between the 2 using the index property

Browser(�Browser�).Page(�Page�).WebElement(�Name:=txt_Name�,�html tag:=INPUT�,�Index:=0�).set �Test� � Refers to the textbox

Browser(�Browser�).Page(�Page�).WebElement(�Name:=txt_Name�,�html tag:=INPUT�,�Index:=1�).set �Test� � Refers to the radio button

To determine which property and value pairs to use, you can use the Object Spy:

1. Go to Tools -> Object Spy.

2. Select the "Test Object Properties" radio button.

3. Spy on the desired object.

4. In the Properties list, find and write down the properties and values that can be used to identify the object.

2. By creating properties collection object for the description.

Properties collection also does the same thing as string arguments. The only difference is that it "collects" all the properties of a particular object in an instance of that object. Now that object can be referenced easily by using the instance, instead of writing "string arguments" again and again. It is my observation that people find "string arguments" [1] method much easier and intuitive to work with.

To use this method you need first to create an empty description

Dim obj_Desc �Not necessary to declare

Set obj_Desc = Description.Create

Now we have a blank description in �obj_Desc�. Each description has 3 properties �Name�, �Value� and �Regular Expression�.

obj_Desc(�html tag�).value= �INPUT�

When you use a property name for the first time the property is added to the collection and when you use it again the property is modified. By default each property that is defined is a regular expression. Suppose if we have the following description

obj_Desc(�html tag�).value= �INPUT�

obj_Desc(�name�).value= �txt.*�

This would mean an object with html tag as INPUT and name starting with txt. Now actually that �.*� was considered as regular expression. So, if you want the property �name� not to be recognized as a regular expression then you need to set the �regularexpression� property as FALSE

obj_Desc(�html tag�).value= �INPUT�

obj_Desc(�name�).value= �txt.*�

obj_Desc(�name�).regularexpression= �txt.*�

This is how we create a description. Now below is the way we can use it

Browser(�Browser�).Page(�Page�).WebEdit(obj_Desc).set �Test�

When we say .WebEdit(obj_Desc) we define one more property for our description that was not earlier defined that is it�s a text box (because QTPs WebEdit boxes map to text boxes in a web page).

If we know that we have more than 1 element with same description on the page then we must define �index� property for the that description

Consider the HTML code given below

<--!input type="�textbox�" name="�txt_Name�"-->

<--!input type="�textbox�" name="�txt_Name�"-->

Now the html code has two objects with same description. So distinguish between these 2 objects we will use the �index� property. Here is the description for both the object

For 1st textbox:

obj_Desc(�html tag�).value= �INPUT�

obj_Desc(�name�).value= �txt_Name�

obj_Desc(�index�).value= �0�

For 2nd textbox:

obj_Desc(�html tag�).value= �INPUT�

obj_Desc(�name�).value= �txt_Name�

obj_Desc(�index�).value= �1�

Consider the HTML Code given below:

<--!input type="�textbox�" name="�txt_Name�"-->

<--!input type="�radio�" name="�txt_Name�"-->

We can use the same description for both the objects and still distinguish between both of them

obj_Desc(�html tag�).value= �INPUT�

obj_Desc(�name�).value= �txt_Name�

When I want to refer to the textbox then I will use the inside a WebEdit object and to refer to the radio button I will use the description object with the WebRadioGroup object.

Browser(�Browser�).Page(�Page�).WebEdit(obj_Desc).set �Test� �Refers to the text box

Browser(�Browser�).Page(�Page�).WebRadioGroup(obj_Desc).set �Test� �Refers to the radio button

But if we use WebElement object for the description then we must define the �index� property because for a webelement the current description would return two objects.

Getting Child Object:

We can use description object to get all the objects on the page that matches that specific description. Suppose we have to check all the checkboxes present on a web page. So we will first create an object description for a checkboxe and then get all the checkboxes from the page

Dim obj_ChkDesc

Set obj_ChkDesc=Description.Create

obj_ChkDesc(�html tag�).value = �INPUT�

obj_ChkDesc(�type�).value = �checkbox�

Dim allCheckboxes, singleCheckBox

Set allCheckboxes = Browse(�Browser�).Page(�Page�).ChildObjects(obj_ChkDesc)

For each singleCheckBox in allCheckboxes

singleCheckBox.Set �ON�

Next

The above code will check all the check boxes present on the page. To get all the child objects we need to specify an object description.

If you wish to use string arguments [1], same thing can be accomplished by simple scripting.

Code for that would be:

i=0 Do While Browse(�Browser�).Page(�Page�).WebCheckBox("html tag:=INPUT",type:=checkbox, "index:="&i).Exist Browse(�Browser�).Page(�Page�).WebCheckBox("html tag:=INPUT",type:=checkbox, "index:="&i).Set "ON"i=i+1LoopPossible Operation on Description Objects

Consider the below code for all the solutions

Dim obj_ChkDesc

Set obj_ChkDesc=Description.Create

obj_ChkDesc(�html tag�).value = �INPUT�

obj_ChkDesc(�type�).value = �checkbox�

Q: How to get the no. of description defined in a collection

A: obj_ChkDesc.Count �Will return 2 in our case

Q: How to remove a description from the collection

A: obj_ChkDesc.remove �html tag� �would delete the html tag property from the collection

Q: How do I check if property exists or not in the collection?

A: The answer is that it�s not possible. Because whenever we try to access a property which is not defined its automatically added to the collection. The only way to determine is to check its value that is use a if statement �if obj_ChkDesc(�html tag�).value = empty then�.

Q: How to browse through all the properties of a properties collection?

A: Two ways

1st:

For each desc in obj_ChkDesc

Name=desc.Name

Value=desc.Value

RE = desc.regularexpression

Next

2nd:

For i=0 to obj_ChkDesc.count - 1

Name= obj_ChkDesc(i).Name

Value= obj_ChkDesc(i).Value

RE = obj_ChkDesc(i).regularexpression

Next

Hierarchy of test description:

When using programmatic descriptions from a specific point within a test object hierarchy, you must continue to use programmatic descriptions

from that point onward within the same statement. If you specify a test object by its object repository name after other objects in the hierarchy have

been described using programmatic descriptions, QuickTest cannot identify the object.

For example, you can use Browser(Desc1).Page(Desc1).Link(desc3), since it uses programmatic descriptions throughout the entire test object hierarchy.

You can also use Browser("Index").Page(Desc1).Link(desc3), since it uses programmatic descriptions from a certain point in the description (starting

from the Page object description).

However, you cannot use Browser(Desc1).Page(Desc1).Link("Example1"), since it uses programmatic descriptions for the Browser and Page objects but

then attempts to use an object repository name for the Link test object (QuickTest tries to locate the Link object based on its name, but cannot

locate it in the repository because the parent objects were specified using programmatic descriptions).

When and Where to use Descriptive programming?

2008-07-10T14:10:10Z

Below are some of the situations when Descriptive Programming can be considered useful:

1. One place where DP can be of significant importance is when you are creating functions in an external file. You can use these function in various actions directly , eliminating the need of adding object(s) in object repository for each action[If you are using per action object repository]2. The objects in the application are dynamic in nature and need special handling to identify the object. The best example would be of clicking a link which changes according to the user of the application, Ex. �Logout <>�.

3. When object repository is getting huge due to the no. of objects being added. If the size of Object repository increases too much then it decreases the performance of QTP while recognizing a object. [For QTP8.2 and below Mercury recommends that OR size should not be greater than 1.5MB]

4. When you don�t want to use object repository at all. Well the first question would be why not Object repository? Consider the following scenario which would help understand why not Object repository

Scenario 1: Suppose we have a web application that has not been developed yet.Now QTP for recording the script and adding the objects to repository needs the application to be up, that would mean waiting for the application to be deployed before we can start of with making QTP scripts. But if we know the descriptions of the objects that will be created then we can still start off with the script writing for testing Scenario 2: Suppose an application has 3 navigation buttons on each and every page. Let the buttons be �Cancel�, �Back� and �Next�. Now recording action on these buttons would add 3 objects per page in the repository. For a 10 page flow this would mean 30 objects which could have been represented just by using 3 objects. So instead of adding these 30 objects to the repository we can just write 3 descriptions for the object and use it on any page.

5. Modification to a test case is needed but the Object repository for the same is Read only or in shared mode i.e. changes may affect other scripts as well.6. When you want to take action on similar type of object i.e. suppose we have 20 textboxes on the page and there names are in the form txt_1, txt_2, txt_3 and so on. Now adding all 20 the Object repository would not be a good programming approach

How To Run QTP Scripts at Scheduled Time?

2008-07-10T14:08:18Z


Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
App.WindowState = "Maximized" ' Maximize the QuickTest window
App.ActivateView "ExpertView" ' Display the Expert View
App.open "C:Program FilesMercury Interactive
QuickTest ProfessionalTestsTest1", False
�'Opens the test in editable mode

�

QTP Certification Exam Sample Questions

2008-07-10T12:35:02Z

Can anybody provide sample questions on QTP certification exam ????

Hi! Welcome .......

2008-07-10T06:07:36Z

Hi!....

�� Welcome to the world of QTP. Let us answer and Post the Queries on QTP and become and help to become masters in QTP

�� Thanks for being a part of this blog.

�� Hope you enjoy blogging