'***************************************************************** '** Script: getxmlelement.vbs '** Version: 1.0 '** Created: 1/8/2009 10:58PM '** Author: Adriaan Westra '** E-mail: '** Purpose / Comments: '** Get an element from a xml file '** '** '** Changelog : '** 1/8/2009 10:58PM : Initial version '** '***************************************************************** Dim objXML ' object to hold the xml document Dim objNnode ' xml node object '***************************************************************** '** create the xml object Set objXML = CreateObject("Msxml2.DOMDocument.6.0") '***************************************************************** '** Load the xml from file objXML.load("album.xml") '***************************************************************** '** Set language for finding information to XPath objXML.setProperty "SelectionLanguage", "XPath" '***************************************************************** '** Get a reference to the node Set objNode = objXML.selectSingleNode("/album/DSC_2710/title") '***************************************************************** '** Output the requested text wscript.echo "Title : " & objNode.text

<?xml version="1.0"?> <album> <title>Bloemen</title> <DSC_2710> <alt>Pioenroos</alt> <title>Pioenroos</title> </DSC_2710> <DSC_4777> <alt>DSC_4777</alt> <title>DSC_4777</title> </DSC_4777> <DSC_4787> <alt>Vingerhoedskruid</alt> <title>Vingerhoedskruid</title> </DSC_4787> <DSC_4899> <alt>Lavendel</alt> <title>Lavendel</title> </DSC_4899> <DSC_5003> <alt>Zonnebloem</alt> <title>Zonnebloem</title> </DSC_5003> </album>