Как сгенерировать HTML-файл из XML- и XSL-файлов?

Парсер находится в msxml.dll и входит в состав Microsoft Internet Explorer 5. Если у Вас нет IE5, или если Вы хотите скачать последнюю версию парсера, то вам сюда.

Скрипту на вход должны подаваться три параметра: имя исходного XML-файла, имя исходного XSL-файла и имя HTML-файла, куда будет помещен результат. Например:

xml2html.vbs library.xml library.xsl library.htm

Листинг: xml2html.vbs

If WScript.Arguments.Count <> 3 Then
	MsgBox "Usage: CREATE_HTML xml_file xsl_file html_file", _
		vbInformation, "XML to HTML converter"
	WScript.Quit
End If

Dim XML
Set XML = CreateObject("Microsoft.XMLDOM")
XML.Load WScript.Arguments(0)

Dim XSL
Set XSL = CreateObject("Microsoft.XMLDOM")
XSL.Load WScript.Arguments(1)

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")

Dim File
Set File = FSO.CreateTextFile(WScript.Arguments(2))

File.Write XML.transformNode(XSL.documentElement)
File.Close

Set FSO = Nothing

Set XML = Nothing
Set XSL = Nothing