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

The sample xml file used by the script :

復制代碼代碼如下:

 
<?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> 