Is there a way to get all object names within the current active page

[jloyzaga]

I use this in my automated test tool (qtp) - is there a pure vbs method?
set PageObjectColl = Browser("micclass:=Browser").Page("micclass:=Page").ChildObjects()
print PageObjectColl.count
For x = 0 to PageObjectColl.count-1
print PageObjectColl(x).GetROProperty("micclass")
print PageObjectColl(x).GetROProperty("name")
print ""
next