生成XML文件时缺少来自根元素的信息

Question

这个脚本应该生成一个新的XML文件，到目前为止它可以工作，但是我被困在第一行（SimBase.Document ...）。

这是剧本：

Dim objShell, appdata
Set objShell = CreateObject("WScript.Shell")
appdata = objShell.ExpandEnvironmentStrings("%appdata%")

Set xmlDoc = CreateObject("Microsoft.XMLDOM")  

Set objRoot = xmlDoc.createElement("SimBase.Document")
xmlDoc.appendChild objRoot

Set objRecord = xmlDoc.createElement("Launch.Addon")
objRoot.appendChild objRecord 

Set objName = xmlDoc.createElement("Descr")
objName.Text = "Launch"
objRecord.appendChild objName

Set objName = xmlDoc.createElement("Filename")
objName.Text = "exe.xml"
objRecord.appendChild objName 

Set objName = xmlDoc.createElement("Disabled")
objName.Text = "False"
objRecord.appendChild objName

Set objName = xmlDoc.createElement("Launch.ManualLoad")
objName.Text = "False"
objRecord.appendChild objName

Set objIntro = xmlDoc.createProcessingInstruction("xml", "version='1.0'")
xmlDoc.insertBefore objIntro,xmlDoc.childNodes(0)

xmlDoc.Save(appdata & "\Microsoft\FSX\exe.xml")

我在第一行的脚本结果是：

<SimBase.Document>

但它应该是：

<SimBase.Document version="1,0" Type="Launch">

Answer 1

添加行

objRoot.setAttribute "version", "1,0"
objRoot.setAttribute "Type", "Launch"