js_Xmlwriter的vbs的调用方法

 Sub mainfun()
  '建立文档对象结构模型
  Dim oXMLDom '= new ActiveXObject("Microsoft.XMLDOM")
  Set oXMLDom = CreateObject("Microsoft.XMLDOM")
  oXMLDom.async = false
  '初始化Xml文档，创建根节点
  CreateXmlDom oXMLDom,"电子文档"
  Dim node
  Set node = oXMLDom.selectNodes("/电子文档").item(0)
  '添加主要子节点
  Set node = AppendNode(oXMLDom, node, "文体", "")
  '添加属性
  AppendAttributeValue node,"xmlns","http://www.xmlspy.com"
  '添加子节点
  Set node = AppendNode(oXMLDom, node, "主体", "")

   msgbox oXMLDom.xml

 End Sub