Append xml file using vbscript

Asked Jan 20 '15 at 08:32

Active Jan 22 '15 at 08:54

Viewed 663 times

I am trying to append xml file using vb script. Below is the code I wrote:

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"

Below is the output I am getting:

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

How do I get of "" (Feature xmlns instead of Feature xmlns="") which is coming in the feature tag.

edited Jan 22 '15 at 08:54

asked Jan 20 '15 at 08:32

user1708

1

It should be ... *what*? – Ansgar Wiechers Jan 20 '15 at 22:38
That was a typo, sorry for that! Well, I just need Instead, I am getting So, how do I achieve desired output? – user1708 Jan 22 '15 at 08:54
Possible duplicate of [How to avoid xmlns attribute when creating XML element using vbscript?](http://stackoverflow.com/q/26753606/1630171). You get this behavior when an ancestor node defines a (default) namespace. – Ansgar Wiechers Jan 22 '15 at 09:49

Append xml file using vbscript

0 Answers0