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

将信息保存到一个XML文件的vbs代码
ThisscriptdemonstrateshowtosaveinformationtoaxmlfilewiththeuseofMSXML.Theexamplexmlfileisusedforthephotoalbumonthesite.'*****************************************************************'**Script:Creat

vbscript Registry 注册表操作实现代码(读写删除)
VBScriptCode:'CreateaWSHShellobject:SetwshShell=CreateObject("WScript.Shell")''Createanewkey:wshShell.RegWrite"HKCUTestKey",""'CreateanewDWORDvalue:wshShell.RegWrite"HKCUTestKeyDWordTestValue",1,"

WMI StdRegProv 通过wmi操作注册表的vbscript实现代码 (本地或远程)
Becauseofitslength,onlythecodeforthefunctionitselfisshownonthispage.Thedemoscriptthatshowshowtousethisfunctionisavailableasaseparatedownload.FunctionReadRegValue(myComputer,myRegPath,myRegValue)'Thisf