OrCAD tcl script for Export Hierarchy?

Hello,

Is there a tcl script somewhere for Accessories > Hierarchy Report > Export Hierarchy?

I'd like to use this a a starting point to write my own script that prints the ports at each level of the hierarchy and the nets that are connected to each port.  (To be more specific, I'd like to only print the net/port pair when the names are different as a way to check schematics).

Thank you!