How to use same script for multiple URLs

[mansis]

Please answer my below question urgently..

Consider that my healthcare web application is surving 100+ clients. For all of these 100 clients, URL is different and login credential is also different.

I need to login into all 100+ clients and needs to test few main pages (10 - 15 pages) are working fine or not.

Using QTP 10.0 version, I have script prepared to test few main pages for ONE client.

Now my question is how can I use above script for rest of 99 clients? Can data table help me? OR should I need to use looping. If yes, pls provide me the code.

As I am QTP beginner, Please suggest me best option in detail urgently..

[sshukla12]

Hi,
To pass the url and username, password use datasheet and navigate to each row to pick the values.
Let me know in case of any help required.

Regards,
Sankalp

[mansis]

Sankalp, thanks a lot for your quick reply.. As I am beginer, I haven't used datasheet till now.. Can you please help me step by step to use datasheet in my case? How can I navigate each row to pick the value using datasheet?

[sshukla12]

  forum.doc (Size: 27 KB / Downloads: 284)
  forum.doc (Size: 27 KB / Downloads: 284) [quote='mansis' pid='22369' dateline='1346232386']

Hi,
Refer to the attachment

Regards,
Sankalp

[mansis]

Hi Sankalp,

Thanks for providing code. Using it, when I was running attached script in QTP and received error "The test run cannot continue due to a syntax error. Expected end of statement Line(1): "System Util.run DataTable("URL",dtGlobalSheet)". Can you please help me?

Script is ------

Code:

Datatable. Import"C:\Documents and Settings\mansi.shah\Desktop\book1.xlsx"
For i=1 to DataTable.RowCount
    System Util.run DataTable(“URL”,dtGlobalSheet)
    Browser().Page().Webedit().Set DataTable(“Username”,dtGlobalSheet)
    Browser().Page().Webedit().Set DataTable(“Password”,dtGlobalSheet)
             Browser("InSync :: Login").Page("InSync :: Login").WebButton("Login").Click
          
'Select facility'
Browser("InSync :: Login").Page("InSync :: Login_2").WebButton("Ok").Click

'Open Scheduler page'

Browser("InSync :: Login").Page("InSync :: Dash Board").Image("ctl00$Header1$Image2").Click
Wait (3)

'Access Patient Search page'

Browser("InSync :: Login").Page("InSync :: Dash Board_2").Image("ctl00$Header1$Image3").Click
Browser("InSync :: Login").Page("InSync :: Patient Search").Image("Edit Patient").Click
Wait (3)


''Access Facesheet'
Browser("InSync :: Login").Page("InSync :: Patient Search").Image("ctl00$Header1$Image4").Click
Wait (3)

'Access New charge page'
Browser("InSync :: Login").Page("InSync :: Dash Board_2").Image("ctl00$Header1$Image5").Click

'Access Document Manager'
Browser("InSync :: Login").Page("InSync :: Dash Board_2").Image("ctl00$Header1$ibtndocumnetmgr").Click
Wait (3)

Browser("InSync :: Login").Close
Next

------------

Please review attached zip file for details

Thanks,
Mansi.


Hi,
Refer to the attachment

Regards,
Sankalp
[/quote]

[ssvali]

Please try below code

Code:

Set ObjExcel = CreateObject("Excel.Application")
ObjExcel.Visible = TRUE


Set oWorkbook = ObjExcel.Workbooks.Open "C:\Documents and Settings\mansi.shah\Desktop\book1.xlsx"
Set oWorksheet = oWorkbook.Worksheets("Sheet1")
rCnt = oWorkbook.Worksheets("Sheet1").UsedRange.Rows.Count

For i=2 to rCnt
URL = oWorkbook.Worksheets("Sheet1").Cells(i,1).Value
UserName = oWorkbook.Worksheets("Sheet1").Cells(i,2).Value
Password  = oWorkbook.Worksheets("Sheet1").Cells(i,3).Value
    System Util.run URL
    Browser().Page().Webedit().Set UserName
    Browser().Page().Webedit().Set Password
    Browser("InSync :: Login").Page("InSync :: Login").WebButton("Login").Click
'Select facility'
Browser("InSync :: Login").Page("InSync :: Login_2").WebButton("Ok").Click

'Open Scheduler page'

Browser("InSync :: Login").Page("InSync :: Dash Board").Image("ctl00$Header1$Image2").Click
Wait (3)

'Access Patient Search page'

Browser("InSync :: Login").Page("InSync :: Dash Board_2").Image("ctl00$Header1$Image3").Click
Browser("InSync :: Login").Page("InSync :: Patient Search").Image("Edit Patient").Click
Wait (3)


''Access Facesheet'
Browser("InSync :: Login").Page("InSync :: Patient Search").Image("ctl00$Header1$Image4").Click
Wait (3)

'Access New charge page'
Browser("InSync :: Login").Page("InSync :: Dash Board_2").Image("ctl00$Header1$Image5").Click

'Access Document Manager'
Browser("InSync :: Login").Page("InSync :: Dash Board_2").Image("ctl00$Header1$ibtndocumnetmgr").Click
Wait (3)

Browser("InSync :: Login").Close
Next

[mansis]

ssvali - again syntax error. please review attched snapshot.

[sshukla12]

Hi,

Keep the datasheet in some drive instead of desktop.
SystemUtil.run DataTable(“URL”,dtGlobalSheet)
pass the value of URL in datasheet
and please pass the browser and page name under the code which i provided.

Regards,
Sankalp

Regards,
Sankalp

[mansis]

Hi,

Sorry to say, Still it is Not working by giving attached syntax error.. Please review below updated script and attached zip file having script, datasheet and error screen shot.

------

Code:

Datatable.Import"D:\Datasheet\book1.xlsx"

For i=1 to DataTable.RowCount
    SystemUtil.run DataTable(“URL”,dtGlobalSheet)
    Browser(“InSync :: Login”).Page(“InSync :: Login”).Webedit().Set DataTable(“Username”,dtGlobalSheet)
    Browser(“InSync :: Login”).Page(“InSync :: Login”).Webedit().Set DataTable(“Password”,dtGlobalSheet)
              Browser("InSync :: Login").Page("InSync :: Login").WebButton("Login").Click
'Select facility'
Browser("InSync :: Login").Page("InSync :: Login_2").WebButton("Ok").Click

'Open Scheduler page'

Browser("InSync :: Login").Page("InSync :: Dash Board").Image("ctl00$Header1$Image2").Click
Wait (3)

'Access Patient Search page'

Browser("InSync :: Login").Page("InSync :: Dash Board_2").Image("ctl00$Header1$Image3").Click
Browser("InSync :: Login").Page("InSync :: Patient Search").Image("Edit Patient").Click
Wait (3)


''Access Facesheet'
Browser("InSync :: Login").Page("InSync :: Patient Search").Image("ctl00$Header1$Image4").Click
Wait (3)

'Access New charge page'
Browser("InSync :: Login").Page("InSync :: Dash Board_2").Image("ctl00$Header1$Image5").Click

'Access Document Manager'
Browser("InSync :: Login").Page("InSync :: Dash Board_2").Image("ctl00$Header1$ibtndocumnetmgr").Click
Wait (3)

Browser("InSync :: Login").Close
Next

------
Thanks,
Mansi.

[sshukla12]

Hi,
Import .xls file instead od .xlsx

Regards,
Sankalp