<h1> Data Driven Testing for Login Operation by fetching Test data directly from a text file </h1>

Option Explicit

Dim objFso, myFile, myLine, myField

Set objFso=CreateObject("Scripting.FileSystemObject")

Set myFile=objFso.OpenTextFile("C:\test.txt")

myFile.SkipLine

Do Until myFile.AtEndOfStream=True

       

myLine=myFile.ReadLine

myField=Split(myLine,",")

SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

Dialog("text:=Login").Activate

Dialog("text:=Login").WinEdit("attached text:=Agent Name:").Set myField(0)

Dialog("text:=Login").WinEdit("attached text:=Password:").Set myField(1)

Wait (2)

Dialog("text:=Login").WinButton("text:=OK").Click

Window("text:=Flight Reservation").Close

Loop

myFile.Close
Set objFso=Nothing