QTP : GetTOProperties of Web Edit Object

' Program to get the Test Object Properties of a Web Edit Field
' Assumption:Objects are already learned into the Object Repository

Set we=Browser("Login").Page("Login").WebEdit("usernameField")
Set toProps=we.GetTOProperties()


Dim i,icount
icount=TOProps.Count-1
For i=0 to iCount
     sName=TOProps(i).Name
     sValue=TOProps(i).Value
 Reporter.ReportEvent micPass,"Property:=" & sName & " Value :="&sValue,""
Next

Output :

Property :=type Value :=text
Property :=name Value :=usernameField
Property :=micclass Value :=WebEdit
Property :=html tag Value :=INPUT