' Script :: Login
' Date ::
' Input Values :: dtable,text,mydate
'Last Modified ::

Option explicit
Dim dtable,text,mydate,url
url="C:\Program Files\Mercury Interactive\QuickTest 
Professional\samples\flight\app\flight4a.exe"
mydate=(mid(date,1,6)& right(date,2)) 'For Current Date Use 
this statement
'mydate=(right(date,2)& mid(date,3,4)& right(date,2))
'datatable.GlobalSheet.AddParameter "Date", mydate 
'datatable.Value(1,1)=mydate
datatable.Import("C:\Documents and 
Settings\Shyam\Desktop\QTP_Script\User_Login\From.xls")
datatable.Import("C:\Documents and 
Settings\Shyam\Desktop\QTP_Script\User_Login\To.xls")
'datatable.Import("C:\Documents and 
Settings\Shyam\Desktop\QTP_Script\User_Login\Agent_Name.xls"
)
'datatable.Import("C:\Documents and 
Settings\Shyam\Desktop\QTP_Script\User_Login\Password.xls")
' INVOKE The Login

'datatable(2, dtGlobalSheet)= url 
SystemUtil.Run(url)

'Check Login exist
if dialog("Login").Exist then
'dialog("Login").WinEdit("Agent Name:").Set DataTable
("Agent_Name", dtLocalSheet)
'dialog("Login").WinEdit("Password:").Set DataTable
("Password", dtLocalSheet)
Dialog("Login").WinEdit("Agent Name:").Set DataTable
("A",dtLocalSheet)
Dialog("Login").WinEdit("Password:").Set datatable("B", 
dtLocalSheet)
dialog("Login").WinButton("OK").Click
' Check for invalid user and password
	If dialog("Login").Dialog("Flight 
Reservations").Exist Then
		dialog("Login").Dialog("Flight 
Reservations").WinButton("OK").Click
		Reporter.ReportEvent 
micfail,"Login","Invalid User /Pwd Check"
		 msgbox "Invalid User /Pwd Check"
		ExitRun(0)
	End If
'else if 
		else
			Reporter.ReportEvent 
micfail,"Login","Login Dialog not exists"
			msgbox "Login Dialog not exists"
			ExitRun(0)

end if 	
Reporter.ReportEvent micdone,"Login","Login Sucessfull"

' Enter the order information
window("Flight Reservation").WinButton
("Button_NewOrder").Click
window("Flight Reservation").ActiveX("MaskEdBox").Type 
Datatable("Fdate")
window("Flight Reservation").WinComboBox("Fly 
From:").Select Datatable



...............
Any more question mail me testingwithshyam@gmail.com