XMLファイルの作成（VBS）

Dim xdoc
Dim pi
Dim root
Dim cdata
Dim ele
Dim attr
Dim txt
  
  Set xdoc = CreateObject("Microsoft.XMLDom")
  
  Set pi = xdoc.createProcessingInstruction("xml", "version='1.0' encoding='Shift_JIS'")
  
  xdoc.appendChild(pi)
  
  Set root = xdoc.createElement("ルート")
  
  Set cdata = xdoc.createCDATASection("ごにょごにょ")
  
  root.appendChild(cdata)
  
  Set ele = xdoc.createElement("子")
  
  Set attr = xdoc.createAttribute("id")
  
  attr.value = "1"
  
  ele.setAttributeNode(attr)
  
  Set txt = xdoc.createTextNode("テキスト")
  
  ele.appendChild(txt)


  root.appendChild(ele)
  
  xdoc.appendChild(root)
  
  WScript.Echo xdoc.xml
  
  
  Set xdoc = Nothing

結果

<?xml version="1.0"?>
<ルート><![CDATA[ごにょごにょ]]><子 id="1">テキスト</子></ルート>

encodingは反映されない