12-02-2011, 10:54 PM
Hi supputuri,
please check the text in bold. The following is a script to show all property objects from a browser and report it in a log.
please check the text in bold. The following is a script to show all property objects from a browser and report it in a log.
Code:
Set oDesc=Description.Create
Set qtApp = CreateObject("QuickTest.Application")
Set qtIdent = qtApp.Options.ObjectIdentification
[b]qtIdent.ResetAll
[/b]
set objList=browser("micclass:=Browser").page("micclass:=Page").ChildObjects(oDesc)
For iCounter=0 to objList.count-1
objList(iCounter).highlight
oClassName=objList(iCounter).getroproperty("micclass")
Set qtObject = qtIdent.Item(oClassName)
set PropColl=qtObject.AvailableProperties
print "*******************************************************"
For oPropCount=1 to PropColl.count
print PropColl.item(oPropCount) & ":="& objList(iCounter).getroproperty(PropColl.item(oPropCount))
Next
print "*******************************************************"
Next