Function EnumXML($xml)
	Dim $i,$a,$NodeList
	
	$NodeList = $xml.getElementsByTagName("*") 
	For Each $i In $NodeList 
		? "Element " +$i.tagName 
		;? "attributes: "      			$i.attributes
		;? "baseName: "         			$i.baseName
		;? "childNodes: "       			$i.childNodes
		;? "dataType: "         			$i.dataType
		;? "definition: "       			$i.definition
		? "firstChild: "       			$i.firstChild.nodeName
		? "lastChild: "        			$i.lastChild.nodeName
		;? "namespaceURI: "     			$i.namespaceURI
		? "nextSibling: "      			$i.nextSibling.nodeName
		;? "nodeName: "         			$i.nodeName
		;? "nodeType: "         			$i.nodeType
		;? "nodeTypeString: "   			$i.nodeTypeString
		;? "nodeValue: "        			$i.nodeValue
		;? "ownerDocument: "    			$i.ownerDocument
		? "parentNode: "       			$i.parentNode.nodeName
		;? "parsed: "           			$i.parsed
		;? "prefix: "           			$i.prefix
		;? "previousSibling: "  			$i.previousSibling.nodeName
		;? "specified: "        			$i.specified
		;? "tagName: "          			$i.tagName
		;? "text: "             			$i.text
		;? "xml: "              			$i.xml
		??
	Next
	
	
	;? "root: "$xml.documentElement.NodeName 

	;$a = xml_doc.getElementsByTagName("*")
	;for each $i in $a
;		item($i).text
;	next
; 	for each $i in $xml.documentElement.childNodes
; 		Dim $k,$m
; 		? "lvl1: " $xml.documentElement.NodeName + "/" + $i.nodeName
; 		;GetXMLChildElements($xml,$xml.documentElement.NodeName + "/" + $i.nodeName)
; 	next
EndFunction