How to read objects & their properties from QTP Object Repository

Set RepositoryFrom = CreateObject("Mercury.ObjectRepositoryUtil")  ‘To create Object

RepositoryFrom.Load ObjectRepositoryPath      ‘To load a Object Repository

Set TOCollection = RepositoryFrom.GetChildren(Root)

Parent=RepositoryFrom.GetLogicalName(Root)