DB2 extrait avec vbscript

Question

Je veux extraire des données de l'ordinateur central db2 qui utilise la page de code IBM 285 (page de code EBCDIC) avec vbscript mais en enregistrant ce fichier (données xml) il affiche incorrectement. Comment puis-je convertir vbscript RecSet de 285 en ASCII ou UTF-8 avant d'enregistrer le fichier?

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) '' utilisé pour convertir en UTF8, comme si une seule erreur vraie apparaît lors de l'écriture de fichier

Answer 1

Voir How to convert between ASCII and EBCDIC character codes. Il est écrit en VB mais devrait être facile à convertir en VBScript.