Edit an XML node and save a file with VBScript

Quick example of editing an XML node with a VBScript.

Let’s say we need to update the \\server\value with a new server/share combination.

XML:

<configdata>

<FaxInBox>\\server\value</FaxInBox>

</configdata>

VBSCRIPT:


on error resume next
—

‘Define what our new value will be and place it into a variable
sValue = “\\server\inbox”

‘Get path of script, (scriptfullname), then replace the scriptname with nothing  bring us only the path and place it into strScriptPath
strScriptPath = replace(wscript.scriptfullname,wscript.scriptname,”")

‘Create XMLDoc object
Set xmlDoc = CreateObject(“Microsoft.XMLDOM”)

‘load up the XML file and place it into xmldoc
xmlDoc.load strScriptPath & “configuration.xml”

‘Select the node we want to edit
‘The text IS case sensitive
Set sInboxFolder = xmlDoc.selectsinglenode (“//configdata/FaxInBox”)

‘Show the current value in FaxInBox
‘msgbox sInboxFolder.text

‘Set the text node with the new value
sInboxFolder.text = sValue

‘Save the xml document with the new settings.
iResult = xmldoc.save(strScriptPath & “configuration.xml”)

You can use the iResult as a way to determine if the file gets saved correctly or not (‘0=yes’, ‘1=no’)