Replace value in file

[AnA]

Hi guys,

after executing the following script in order to find and replace certain value in web.config, the value in the file is not being modified! "WScript.Echo "ORIGINAL VALUE: " & orig_val.value" outputs the current value correctly, i.e. I do approach the value as should...

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set ConfigDoc = CreateObject("Msxml2.DOMDocument.3.0")
ConfigDoc.async = False
ConfigDoc.preserveWhiteSpace = True
Dim strXMLFile
strXMLFile = "C:\web.config"
' If the file is Read-Only
'then change that in order to edit
Set f = objFSO.GetFile(strXMLFile)
IF f.attributes and 1 Then
f.attributes = f.attributes - 1
End IF

IF ConfigDoc.Load(strXMLFile) Then
ConfigDoc.setProperty "SelectionLanguage", "XPath"
Set AppSettings = ConfigDoc.selectSingleNode("configuration/appSettings")
IF Not AppSettings Is Nothing Then
Set orig_val = AppSettings.selectSingleNode("add[@key = 'MyKey']/@value")
IF Not orig_val Is Nothing Then
WScript.Echo "ORIGINAL VALUE: " & orig_val.value
orig_val.value = "NewVal"
End IF
End if
End if

can you please help , since I am lost :-(
Thanks in advance
Ana

[AnA]

I was missing one line after orig_val.value = "newVal"

--> ConfigDoc.save(strXMLFile)