Здравствуйте alsun, Вы писали:

A>к сожалению, doctype доступен только для чтения

Можно сделать по тупому, после создания нового XMLDocument'а, загрузить в него <!DOCTYPE> из строки:

  Set doc_ = CreateObject("Microsoft.XMLDOM")
  doc_.async=false: doc_.validateOnParse=false: doc_.resolveExternals=false

  doc_.loadXml("<!DOCTYPE jboss PUBLIC     '-//JBoss//DTD JBOSS 2.4//EN'           'http://www.jboss.org/j2ee/dtd/jboss_2_4.dtd'><jboss/>")
  set newElement = doc_.appendChild (doc_.createProcessingInstruction("xml","version=""1.0"" encoding=""WINDOWS-1251"""))
  doc_.save(".\sm.xml")

Пример на vbs'е