Show all Object properties without using Object Spy

Set oDesc=Description.Create

Set qtApp = CreateObject("QuickTest.Application")
Set qtIdent = qtApp.Options.ObjectIdentification
qtIdent.ResetAll

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