使用vbscript附加xml文件

Question

我正在尝试使用vb脚本附加xml文件。以下是我写的代码：

Dim xmlDoc
Dim objRoot
Dim objRecord
Dim objFieldValue
Set xmlDoc = _
CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = "False"
xmlDoc.Load("C:\Temp\Scripts_products.xml")

Set objRoot = xmlDoc.documentElement

Set objRecord = _
xmlDoc.createElement("Features")
objRoot.appendChild objRecord

Set objFieldValue = _
xmlDoc.createElement("ComputerName")
objFieldValue.Text = "atl-ws-100"
objRecord.appendChild objFieldValue

Set objFieldValue = _
xmlDoc.createElement("AuditDate")
objFieldValue.Text = Date
objRecord.appendChild objFieldValue

xmlDoc.Save "C:\Temp\Scripts_products.xml"

以下是我得到的输出：

</Product>
<Features xmlns=""><ComputerName>atl-ws-100</ComputerName>      <AuditDate>1/19/2015</AuditDate></Features>
</Products>

我如何得到＆＃34;＆＃34; （功能xmlns而非功能xmlns=""）即功能标记中的功能。