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