DB2 extract with vbscript

i want to extract data from db2 mainframe which uses IBM code page 285 (EBCDIC code page) with vbscript but saving this file (xml data) it displays wrong 开发者_StackOverflow社区way. How can i convert vbscript RecSet from 285 to ASCII or UTF-8 before saving file?

Function used for saving file:
Function WriteFileText( sText, sFileName)
    Dim sFilePath
Dim objFSO 'As FileSystemObject
Dim objTextFile 'As Object
    Dim i
    Dim arr

sFilePath = "c:\jdk1.3\temp\" & sFileName
Const ForWriting = 2


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(sFilePath, True, True)

a = 0

for i=1 to len(sText)
s2Text = right(left(sText,i),1)
if i > 54 and asc(s2Text) = 63 then a = a + 1 else objTextFile.Write (s2Text) end if
next

objTextFile.Close

'' Set objTextFile = objFSO.CreateTextFile(sFilePath, True, True) '' used to convert to UTF8, as if only one True error appears when writing to file

---

See How to convert between ASCII and EBCDIC character codes. It's written in VB but whould be easy to convert to VBScript.