OpenAsTextStream - UTF8 doesn't support in VB script

See more:

VBScript

Hi,
Here is the sample code I am using for generating the HTML file but it fails to support UTF8, it creates the html with %CD%%..etc

Set xmlSource = CreateObject("MSXML2.DOMDocument")
Set xmlXForm = CreateObject("MSXML2.DOMDocument")
Set args = WScript.Arguments
xmlFile = args.Item(0)
xslFile = args.Item(1)
outputFile = args.Item(2)

Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
fileSystemObject.CreateTextFile(outputfile)
Set fileObject = fileSystemObject.GetFile(outputfile)
Set outFileStream = fileObject.OpenAsTextStream(2,-1)
outFileStream.Write(output)
outFileStream.Close

I found a solution in java script but it throws error saying runtimeerror, here is that sample, can some one correct it.

Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
Set utf8Enc = new ActiveXObject("Utf8Lib.Utf8Enc");

fileSystemObject.CreateTextFile(outputfile)
Set fileObject = fileSystemObject.GetFile(outputfile)
Set outFileStream = fileObject.OpenAsTextStream(2,-1)
outFileStream.Write(utf8Enc.UnicodeT(output))
outFileStream.Close

thanks in advance