Eine xml Datei per Script anpassen

ROOTFOLDER = "D:\DeinOrdner in den die Ordner liegen"  
Set fso = WScript.CreateObject("Scripting.Filesystemobject")  
Set fldrROOT = fso.GetFolder(ROOTFOLDER)
parseFolders fldrROOT,True

Function parseFolders(objFolder,boolRecursion)
	For Each file In objFolder.Files
		If LCase(file.Name) = "config.xml" Then  
			changeXMLParameter(file.Path)
		End If
	Next
	
	If boolRecursion Then
		For Each subFolder in objFolder.SubFolders
			parseFolders subFolder, True
		Next
	End If
End Function

Function changeXMLParameter(fileName)
	Set xmlDoc = WScript.CreateObject("Msxml2.DOMDocument")  
	xmlDoc.load fileName
	'search single XML-Node via XPath Expression  
	Set node = xmlDoc.selectSingleNode("/ConfigData/parameter[name='UserEnableWebDialIE']/value")  
	If Not node Is Nothing Then
		node.text = 0
                xmlDoc.save(fileName)
	End If
	Set xmlDoc = Nothing
End Function

ROOTFOLDER = "D:\DeinOrdner in den die Ordner liegen"  
Set fso = WScript.CreateObject("Scripting.Filesystemobject")  
Set fldrROOT = fso.GetFolder(ROOTFOLDER)
parseFolders fldrROOT,True

Function parseFolders(objFolder,boolRecursion)
	For Each file In objFolder.Files
		If LCase(file.Name) = "config.xml" Then  
			changeXMLParameter(file.Path)
		End If
	Next
	
	If boolRecursion Then
		For Each subFolder in objFolder.SubFolders
			parseFolders subFolder, True
		Next
	End If
End Function

Function changeXMLParameter(fileName)
	Set xmlDoc = WScript.CreateObject("Msxml2.DOMDocument")  
	xmlDoc.load fileName
	'search single XML-Node via XPath Expression  
	Set node = xmlDoc.selectSingleNode("/ConfigData/parameter[name='UserEnableWebDialIE']/value")  
	If Not node Is Nothing Then
		node.text = 0
	Else
		Set parameterNode = xmlDoc.createElement("parameter")  
		Set nameNode = xmlDoc.createElement("name")  
		nameNode.text = "UserEnableWebDialIE"  
		Set valueNode = xmlDoc.createElement("value")  
		valueNode.text = 0
		parameterNode.appendChild(nameNode)
		parameterNode.appendChild(valueNode)
                If xmlDoc.documentElement Is Nothing Then
			Set rootElement = xmlDoc.createElement("ConfigData")  
			xmlDoc.appendChild(rootElement)
		End If
		xmlDoc.documentElement.appendChild(parameterNode)
	End If
	xmlDoc.save(fileName)
	Set xmlDoc = Nothing
End Function

<?xml version="1.0" encoding="utf-8"?> 

ROOTFOLDER = "D:\DeinOrdner in den die Ordner liegen"  
Set fso = WScript.CreateObject("Scripting.Filesystemobject")  
Set fldrROOT = fso.GetFolder(ROOTFOLDER)
parseFolders fldrROOT,True
MsgBox "Fertig!"  
Function parseFolders(objFolder,boolRecursion)
	For Each file In objFolder.Files
		If LCase(file.Name) = "config.xml" Then  
			changeXMLParameter(file.Path)
		End If
	Next
	
	If boolRecursion Then
		For Each subFolder in objFolder.SubFolders
			parseFolders subFolder, True
		Next
	End If
End Function

Function changeXMLParameter(fileName)
	Set xmlDoc = WScript.CreateObject("Msxml2.DOMDocument.6.0")  
	xmlDoc.load fileName
	'search single XML-Node via XPath Expression  
	Set node = xmlDoc.selectSingleNode("/ConfigData/parameter[name='UserEnableWebDialIE']/value")  
	If Not node Is Nothing Then
		node.text = 0
	Else
		Set parameterNode = xmlDoc.createNode(1,"parameter","http://xml.avaya.com/endpointAPI")  
		Set nameNode = xmlDoc.createNode(1,"name","http://xml.avaya.com/endpointAPI")  
		nameNode.text = "UserEnableWebDialIE"  
		Set valueNode = xmlDoc.createNode(1,"value","http://xml.avaya.com/endpointAPI")  
		valueNode.text = 0
		parameterNode.appendChild(nameNode)
		parameterNode.appendChild(valueNode)
		If xmlDoc.documentElement Is Nothing Then
			xmlDoc.loadXML("<?xml version=""1.0""?><ConfigData xmlns=""http://xml.avaya.com/endpointAPI""></ConfigData>")  
		End If
		xmlDoc.documentElement.appendChild(parameterNode)
		
		' Stylesheet: XML Dokument formatieren (Zeilenumbrüche hinzufügen)  
		Set xltDoc = CreateObject("Msxml2.DOMDocument.6.0")  
		xltDoc.async = False
		xltDoc.loadXML( _
		  "<?xml version=""1.0"" encoding=""utf-8""?>" & vbNewLine & _  
		  "<xsl:stylesheet version=""1.0"" xmlns:xsl=""http://www.w3.org/1999/XSL/Transform"">" & vbNewLine & _  
		  "	<xsl:output method=""xml"" version=""1.0"" encoding=""UTF-8"" indent=""yes"" />" & vbNewLine & _  
		  "	<xsl:template match=""node()|@*"">" & vbNewLine & _  
		  "		<xsl:copy>" & vbNewLine & _  
		  "			<xsl:apply-templates select=""node()|@*"" />" & vbNewLine & _  
		  "		</xsl:copy>" & vbNewLine & _  
		  "	</xsl:template>" & vbNewLine & _  
		  "</xsl:stylesheet>")  
		xmlDoc.transformNodeToObject xltDoc, xmlDoc
	End If
	xmlDoc.save(fileName)
	Set xmlDoc = Nothing
End Function