'Create an excel sheet with username and password
'Get username and password from the excel sheet

Set excelobj=createobject("excel.application")
excelobj.workbooks.open("C:\Documents and 
Settings\12Desktop\test data.xls")
usrname=excelobj.sheets(1).cells(2,1)
pwd=excelobj.sheets(1).cells(2,2)
excelobj.workbooks.close
' add the objects to the Object Repository

'Function for username
Function username
If Browser("Yahoo! Mail: The best").Page("Yahoo! Mail: The 
best").WebEdit("login").Exist Then
	If Browser("Yahoo! Mail: The best").Page("Yahoo! 
Mail: The best").WebEdit("login").GetROProperty("disabled")
=false Then
		Browser("Yahoo! Mail: The best").Page
("Yahoo! Mail: The best").WebEdit("login").Set usrname
		reporter.ReportEvent 
micpass,"WebEdit","UsernameEntered: "&usrname
		End If
		else
		reporter.ReportEvent 
micfail,"WebEdit","Username Not Entered"
    End If
End Function
'Calling the username function
username

'Function for password
Function password
If Browser("Yahoo! Mail: The best").Page("Yahoo! Mail: The 
best").WebEdit("passwd").Exist Then
	If Browser("Yahoo! Mail: The best").Page("Yahoo! 
Mail: The best").WebEdit("passwd").GetROProperty("disabled")
=false then
		Browser("Yahoo! Mail: The best").Page
("Yahoo! Mail: The best").WebEdit("passwd").Set pwd
		  	reporter.ReportEvent 
micpass,"WebEdit","Password Entered: "&pwd
		End If
		else
		reporter.ReportEvent 
micfail,"WebEdit","Password Not Entered"
    End If
End Function
'calling the password function
password

'checking the username is valid or not
username="bhadrudu_p"
getdata=Browser("Yahoo! Mail: The best").Page("(1 unread) 
Yahoo! Mail").WebElement("bhadrudu_p").GetROProperty
("innertext")
Function usrvalid
	If  trim(getdata)=trim(username) Then
	reporter.ReportEvent micpass,"WebElement","Valid 
user"
	else
	reporter.ReportEvent micfail,"WebElement","Welcome 
page not present"
End If
End Function

usrvalid

Hello Mr.Badri,

Script is good,
if anybody don't know scripting they will feel difficult to understand your script, please reduce complexity while answering, here no need to use always reporter events you can display with msgbox or with print statements.

How do you think this is correct validation, 
--> you get the user name from excel sheet and placed in user name field.
--> you get the text available in user name field again 
--> validating these two values.
no test case will be fail if you do testing like this.

you forgot one more thing you have to click Sign In button with out doing this how could you conclude that the user is valid or not....!

Once you get Home page or mail box page then you can conclude that user name is valid 
or
If you don't get any error msg or popup after clicking on Login In then also you can ensure that the user is valid.

If anybody want me to give code, I will give.

above code also correct but some what complexity...!

'-----------------------------------------------------------
--------Create the Connection String -----------------------
------------------------------------------------------------
---------
Function fgGetConnection( )
			'****
			'Purpose:		Get 
connection to Excel Workbook
			'****
			Dim objConnection
			
			Set objConnection = CreateObject
("ADODB.Connection")
		
	objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0
;Data Source='D:\Test Data\Test_Data.xls' ;Extended 
Properties=Excel 8.0;"
			Set fgGetConnection = objConnection
			
End Function
'-----------------------------------------------------------
--------Close the excel connection -------------------------
------------------------------------------------------------
-------
Function fgCloseConnection ( objConnection )
		'****
		'Purpose:		Close connection to 
Excel Workbook
		'****
				objConnection.Close
	
End Function
'-----------------------------------------------------------
--------Fetch the test data from the excel -----------------
------------------------------------------------------------
---------------

Function fgGetData (objConnection, strColumnName, Sheet, 
intPageNumber, TestSetName)
	'****
	'Purpose:		Queries the Excel Workbook 
for one field in the particular Sheet
	'			- Can also take a string 
with comma separated values to get all the columns and give 
it back as an array.
	'****
	'MsgBox strColumnName
	'MsgBox Sheet
	'MsgBox  intPageNumber
	'MsgBox TestSetName
					Dim objRecordSet, 
strQuery
					Dim strScenarioID
					Set objRecordSet = 
CreateObject("ADODB.recordset")
				
	objRecordSet.CursorType = 3 'set CursorType to be 
able to do a RecordCount
					strQuery 
= "SELECT " & strColumnName & "  FROM ["&Sheet& "$] WHERE 
Test_Set = '" & TestSetName & "' AND Step_Number =" & 
intPageNumber & "  AND TestStatus='Y'"
					objRecordSet.open 
strQuery, objConnection
					Select Case 
objRecordSet.RecordCount 
							
	Case 0
							
		fgGetData = ""
							
	Case Else
							
				If InStr(objRecordSet(0), 
Chr(10)) > 0 Then
							
					fgGetData = Replace
( objRecordSet(0), Chr(10), vbNewLine )
							
				Else
							
					fgGetData = 
objRecordSet(0)
							
		'			msgbox fgGetData
							
				End If			
	
					End Select
					objRecordSet.Close
End Function



'***********************************************DB 
Connection Start 
Function****************************************************
****************************

Public Function CreateruntimeObject(Sheetname,ObName)
				'   msgbox ObName
					set 
conn=createobject("ADODB.CONNECTION")
					set 
recset=createobject("ADODB.RECORDSET")
				
	conn.provider="MICROSOFT.JET.OLEDB.4.0"
					
	conn.open "data source='D:\Object 
Repository\Object.xls'; Extended properties=EXCEL 8.0"
						qry="Select 
Properties from [" & Sheetname& "$] where ObjName='" 
&ObName& "'"
					recset.open qry, 
conn, 1, 1
				
				  props= recset.Fields(0)
				  
				
				'Create object description 
for the data fetched from the excel sheet.
				Set obj=description.create()
				arrprops=split(props, "|")
					For i=0 to UBOUND
(arrprops)
					
	arrprop=split(arrprops(i), "=")
					
	propname=arrprop(0)
					
	propvalue=arrprop(1)
						obj
(propname).value=propvalue
				Next
				
				Set CreateruntimeObject=obj
				
				'if object not present????

End Function

'-----------------------------------------------------------
-------- Functional Result update in the testData Excel-----
------------------------------------------------------------
----------------------------
Public Function Resultupdate(objConnection, 
Sheet,TestSetName, intPageNumber, Result, Status)

		objConnection.Execute "update ["&Sheet&"$] 
set TestResult ='" & Result & "', TestStatus ='" & Status 
& "',  Execution_Date =Now  where Test_Set = '" & 
TestSetName & "' and Step_Number =" & intPageNumber  & ""

End Function

'-----------------------------------------------------------
--------GUI   Result update in the testData Excel-----------
------------------------------------------------------------
----------------------

Public Function ResultupdateGUI(objConnection, 
Sheet,TestSetName, Result, Status,objVal,objroPty)
   
			objConnection.Execute "update 
["&Sheet&"$] set TestResult ='" & Result & "', TestStatus 
='" & Status & "',  Execution_Date =Now  where Test_Set 
= '" & TestSetName & "' AND TestStatus='Y'  AND 
Objval='"&objVal&"'  AND Objroproperty='"&objroPty &"' "
			
End Function

'-----------------------------------------------------------
--------Function for Close Application  --------------------
------------------------------------------------------------
-------------
Function CloseApplication(Application)
				dim strcompname, 
strprocesstokill, objwmiservice, compname
				dim colprocess
				Set WshNetwork =CreateObject
("WScript.Network")
			
	compname=WshNetwork.computername 'Get the computer 
name
				
				Set objwmiservice=Getobject
("Winmgmts:\\" &compname & "\root\cimv2") 'Get the task 
manager
				set 
colprocess=objwmiservice.execquery("Select  *  from 
win32_process where name='"&Application&"'") 
					'	Get all the 
processes in an arrary and terminate the required process 
from the task manager.
				For each process in 
colprocess
					  msg=process.name
					 
reporter.ReportEvent micDone, msg, msg & " this has been 
terminated"
					 process.terminate()
				Next
End Function

'-----------------------------------------------------------
--------Invoke outlook Folder Function ---------------------
------------------------------------------------------------
-----------

Function InvokeOutlookFedex()
   
				Const olFolderInbox = 6
				
				Set objOutlook = 
CreateObject("Outlook.Application")
				'
				'If Dialog
("regexpwndclass:=#32770", "regexpwndtitle:=Personal 
Folders Password").Exist(1) Then
				'	pass=Input("Enter 
your Password")
				'	Dialog
("regexpwndclass:=#32770", "regexpwndtitle:=Personal 
Folders Password").WinEdit("attached text:=Type the 
password for.*").Set pass
				'End If
				Set objNamespace = 
objOutlook.GetNamespace("MAPI")
				
				Set objInbox = 
objNamespace.GetDefaultFolder(olFolderInbox)
				
				'msgbox objInbox
				
				strFolderName = 
objInbox.Parent
				
				'msgbox strFolderName
				
				Set objMailbox = 
objNamespace.Folders(strFolderName)
				
				Set objFolder = 
objMailbox.Folders("FedEx QuickShip")
				
				'msgbox objFolder
				wait(5)
				objFolder.display
				wait(3)
				Window(MainPage).maximize
End Function


Public Function Alternateobject(Sheetname,ObName)
'   msgbox ObName
	set conn=createobject("ADODB.CONNECTION")
	set recset=createobject("ADODB.RECORDSET")
    conn.provider="MICROSOFT.JET.OLEDB.4.0"
   'conn.open "Provider=MS.Remote;" & "Remote 
Server=\\Wm6103rbw-1331;" & "Remote Provider = 
MICROSOFT.JET.OLEDB.4.0;" & "data source='\\Wm6103rbw-1331
\Object Repository\Object.xls'; Extended properties=EXCEL 
8.0"
    conn.open "data source='D:\Object 
Repository\Object.xls'; Extended properties=EXCEL 8.0"
	qry="Select Alternate_Prop from [" & Sheetname& "$] 
where ObjName='" &ObName& "'"
	 recset.open qry, conn, 1, 1

  props= recset.Fields(0)

   
''Gets the value into an array
'	Do Until recset.eof
'		For each val in recset.fields
'			props=val.value
'			msgbox props
'		Next
'		recset.movenext
'	Loop

'Create object description for the data fetched from the 
excel sheet.
Set obj=description.create()
arrprops=split(props, "|")
	For i=0 to UBOUND(arrprops)
' 	 msgbox arrprops(i)
		arrprop=split(arrprops(i), "=")
		propname=arrprop(0)
		propvalue=arrprop(1)
'		msgbox propname
'		msgbox propvalue
		obj(propname).value=propvalue
	
Next

Set Alternateobject=obj

'if object not present????

End Function