VB scrpit 修改配置文件（读写XML）

‘VB scrpit 修改配置文件（XML）：

Dim WshShell Set WshShell = CreateObject("Wscript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") ' Create log file for the script Set logStream = fso.createtextfile("updateConfig.log" , True) logStream.writeline "Start update Config" ' 假定要修改的为一个数据库配置文件，要更新DataSource 和DataSourceMirror 两个元素 dataSource = "localhost" dataSourceMirror = "localhost" '假定要从另一个test.xml中读取DataSource 和DataSourceMirror 的值，然后更新到 configFile.config testPath= "test.xml" Set xmlDoc = CreateObject("Msxml2.DOMDocument") If (fso.FileExists(testPath)) Then msg = nBoxConfigFilePath & " exists" logStream.writeline msg ' Load the test config file xmlDoc.load(testPath) ' 假定test.xml的结构相对复杂，用xpath搜索出对应的节点： Set dataSourceNode = xmlDoc.selectSingleNode("//test[@name='DataSource']").parentNode Set dataSourceMirrorNode = xmlDoc.selectSingleNode("//test[@name='DataSourceMirror ']").parentNode ' 取得节点的属性值 dataSource = dataSourceNode.getAttribute("name") dataSourceMirror = dataSourceMirrorNode.getAttribute("name") Else msg = "Warning" & testPath & " doesn't exists " ' 如果testPath 路径不存在那么将警告信息写入log文件 logStream.writeline msg End If Set WshEnv = WshShell.Environment("PROCESS") ' 请注意将config dir 和configFile 替换成对应的内容 filePath = “configdir/configFile.config" If (fso.FileExists(filePath)) Then msg = filePath & " exists" ' 如果filePath 路径不存在那么将警告信息写入log文件 logStream.writeline msg 'Loading config file xmlDoc.load(filePath) logStream.writeline "Loading config file " & filePath 'Get the datasource and mirror node Set rtDataSourceNode = xmlDoc.selectSingleNode("//add[@key='DataSource']") Set rtDataSourceMirrorNode = xmlDoc.selectSingleNode("//add[@key='DataSourceMirror']") 'Set the value attribute for the datasource and mirror node rtDataSourceNode.setAttribute "value", dataSource rtDataSourceMirrorNode.setAttribute "value", dataSourceMirror 'Save the config file XMLDoc.save(filePath) logStream.writeline "Save the config file" logStream.writeline "Finish the configuration" Else msg = "Error:" & filePath & " doesn't exists" End If logStream.Close ‘ 释放WshShell Set WshShell = Nothing

附configFile.config示例：

<?xml version="1.0" encoding="utf-8"?>
<configuration>
<appSettings>
<add key="DataSource" value="localhost" />
<add key="DataSourceMirror" value="localhost" />
<add key="InitialCatalog" value="TestDB" />
</appSettings>
</configuration>