Vbscript-创建XML文件并添加命名空间

我正在尝试使用vbscript创建一个xml文件，格式如下

<?xml version="1.0" encoding="UTF-8"?>
<products xmlns="http://www.myurl.com">
<product>
<url>http://www.link.com</url>
</product>

---

为节点创建属性

xmlns

：

Set xmlDoc=CreateObject（“Msxml2.DOMDocument.6.0”）
设置objRoot=xmlDoc.createElement（“产品”）
设置xmlns=xmlDoc.createAttribute（“xmlns”）
xmlns.text=”http://www.myurl.com"
objRoot.setAttributeNode xmlns
xmlDoc.appendChild对象根

这几乎奏效了，问题是它还将AttributeNode添加到了第二个元素中。我怎样才能防止呢？链接@ ZulaKy为什么你认为这是一个问题？

Set xmlDoc = CreateObject("Microsoft.XMLDOM")  
Set objRoot = xmlDoc.createElement("products")
xmlDoc.appendChild objRoot