'***************************************************************** '** 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
