QTP File System Objects login using Text file

Create a Text file with Username,Password

Username,Password
xxxxxxx,xxxxxxx
xxxxxx,xxxxxxxx

Option Explicit
Dim ObjFSO,ObjRD,Name

Set ObjFSo = Createobject("Scripting.filesystemobject")
Set ObjRD = ObjFSo.Opentextfile("c:\root folder\testing.txt")

While ObjRD.atEndOfline = false

Name = ObjRD.readline

Systemutil.Run "flight.exe application path"

Dialog("login").WinEdit("Agent Name").Set name
Dialog("login").WinEdit("Password").Set name
Dialog("login").WinButton("OK").Close

Window("Flight Reservation").Close

wend

ObjRD.Close

Set ObjRD = nothing
Set ObjFSo = nothing