Set xml = CreateObject("MSXML.DOMDocument") For each Argument in WScript.Arguments xml.load(Argument) Set registrations = xml.getElementsByTagName("registration") for each registration in registrations set attributes = registration.attributes WScript.Echo "ProgId:", attributes.getNamedItem("progid").nodeValue next nodetypes = array("property", "method", "event") for each nodetype in nodetypes set elements = xml.getElementsByTagName(nodetype) If elements.length > 0 Then WScript.Echo nodetype, "list:" For each element in elements 'WScript.Echo element.basename set attributes = element.attributes WScript.Echo vbTab & attributes.getNamedItem("name").nodeValue next End If next Next