Per VBS Zeilen an bestehende XML.Datei einfügen

Hallo.. Guten Abend

Ist es möglich per VBScript in bestehende XML.Datei Zeilein einzufugen?


Danke an alle die gepostet haben. Habe nach langem Suchen einen Script gefunden
der soweit funktioniert nur...

Das ist der Script:

Option Explicit

Dim xmlDoc, xmlRoot, xmldll, xmlKnoten, Fehlertext

Set xmlDoc = CreateObject("Microsoft.XMLDOM")

xmlDoc.async = False

If xmlDoc.load("C:\dll.xml") = False Then
Fehlertext = " Laden NICHT erfolgreich" & vbCrLf & vbCrLf & _
" Fehler in Zeile: " & xmlDoc.parseError.line & vbCrLf & _
" Position: " & xmlDoc.parseError.linePos & vbCrLf & _
" Fehlercode: " & xmlDoc.parseError.errorCode & vbCrLf & _
" Fehlergrund: " & xmlDoc.parseError.reason & vbCrLf & _
" Fehlerhafte Zeile: " & xmlDoc.parseError.srcText

MsgBox Fehlertext, vbOKOnly + vbCritical, "Fehler: ABBRUCH"

Wscript.Quit
End If

Set xmlRoot = xmlDoc.documentElement

Set xmldll = xmlDoc.createElement("Launch.Addon")

Set xmlKnoten = xmlDoc.createElement("Name")
xmlKnoten.Text = "ATi Core"
xmldll.appendChild(xmlKnoten )

Set xmlKnoten = xmlDoc.createElement("Disabled")
xmlKnoten.Text = "False"
xmldll.appendChild(xmlKnoten )

Set xmlKnoten = xmlDoc.createElement("ManualLoad")
xmlKnoten.Text = "False"
xmldll.appendChild(xmlKnoten )

Set xmlKnoten = xmlDoc.createElement("Path")
xmlKnoten.Text = "ATi\ATiX.dll"
xmldll.appendChild(xmlKnoten )

xmlRoot.appendChild(xmldll)

xmlDoc.Save("C:\ndll.xml")
Set xmlDoc = Nothing

MsgBox "Fertig", vbOKOnly + vbInformation, "Hinweis"


Resultat:
<?xml version="1.0" encoding="Windows-1252"?>
<SimBase.Document Type="Launch" version="1,0">
<Descr>Launch</Descr>
<Filename>dll.xml</Filename>
<Disabled>False</Disabled>
<Launch.ManualLoad>False</Launch.ManualLoad>
<Launch.Addon>
<Name>Object Placement Tool</Name>
<Disabled>True</Disabled>
<ManualLoad>False</ManualLoad>
<Path>..\Microsoft Flight Simulator X SDK\SDK\Mission Creation Kit\object_placement.dll</Path>
</Launch.Addon>
<Launch.Addon>
<Name>Traffic Toolbox</Name>
<Disabled>True</Disabled>
<ManualLoad>False</ManualLoad>
<Path>..\Microsoft Flight Simulator X SDK\SDK\Environment Kit\Traffic Toolbox SDK\traffictoolbox.dll</Path>
</Launch.Addon>
<Launch.Addon>
<Name>Visual Effects Tool</Name>
<Disabled>True</Disabled>
<ManualLoad>False</ManualLoad>
<Path>..\Microsoft Flight Simulator X SDK\SDK\Environment Kit\Special Effects SDK\visualfxtool.dll</Path>
</Launch.Addon>
<Launch.Addon><Name>ATi Core</Name><Disabled>False</Disabled><ManualLoad>False</ManualLoad><Path>ATi\ATiX.dll</Path></Launch.Addon></SimBase.Document>

Soll:

<?xml version="1.0" encoding="Windows-1252"?>
<SimBase.Document Type="Launch" version="1,0">
<Descr>Launch</Descr>
<Filename>dll.xml</Filename>
<Disabled>False</Disabled>
<Launch.ManualLoad>False</Launch.ManualLoad>
<Launch.Addon>
<Name>Object Placement Tool</Name>
<Disabled>True</Disabled>
<ManualLoad>False</ManualLoad>
<Path>..\Microsoft Flight Simulator X SDK\SDK\Mission Creation Kit\object_placement.dll</Path>
</Launch.Addon>
<Launch.Addon>
<Name>Traffic Toolbox</Name>
<Disabled>True</Disabled>
<ManualLoad>False</ManualLoad>
<Path>..\Microsoft Flight Simulator X SDK\SDK\Environment Kit\Traffic Toolbox SDK\traffictoolbox.dll</Path>
</Launch.Addon>
<Launch.Addon>
<Name>Visual Effects Tool</Name>
<Disabled>True</Disabled>
<ManualLoad>False</ManualLoad>
<Path>..\Microsoft Flight Simulator X SDK\SDK\Environment Kit\Special Effects SDK\visualfxtool.dll</Path>
</Launch.Addon>
<Launch.Addon>
<Name>ATi Core</Name>
<Disabled>False</Disabled>
<ManualLoad>False</ManualLoad>
<Path>ATi\ATiX.dll</Path>
</Launch.Addon>
</SimBase.Document>

Wie bekomme ich es hin, dass die eingefügten Zeilen so wie hier untereinander stehen?

Und wie kann man die msgboxen entfernen , dass der script noch funktioniert?

Besten Dank für Hilfe
aletri