Dim XMLDoc 
Dim XSLDoc 
Set XMLDoc = WScript.CreateObject("MSXML.DOMDocument") 
XMLDoc.load WScript.Arguments(0) 
Set XSLDoc = WScript.CreateObject("MSXML.DOMDocument") 
XSLDoc.load WScript.Arguments(1) 
Dim OutFile 
Dim FSO 
Set FSO = WScript.CreateObject("Scripting.FileSystemObject") 
Set OutFile = FSO.CreateTextFile(WScript.Arguments(2)) 
OutFile.Write XMLDoc.transformNode(XSLDoc) 
OutFile.Close