Open for binary для VBScript

Формулировка задачи:

Binary  #
 #, , s
 #
при записи размер .8M

   Binary  #
 #, , s
 #
(преобразование и запись)

эти работает для VB6
нашёл функции для VBscript

ReadBinaryFile(FileName)
      adTypeBinary = 
      BinaryStream
      BinaryStream = CreateObject()
     BinaryStream. = adTypeBinary
     BinaryStream.
     BinaryStream.LoadFromFile FileName
     ReadBinaryFile = BinaryStream.Read
     BinaryStream.
      BinaryStream = 

 SaveBinaryData(FileName, Text)
      adTypeBinary = 
      adTypeText = 
      adSaveCreateOverWrite = 
      BinaryStream  ADODB.Stream
      BinaryStream = CreateObject()
     BinaryStream. = adTypeBinary
     BinaryStream.
      CreateObject()
        . = adTypeText
        .: .WriteText Text
        .position = 
        .CopyTo BinaryStream, Len(Text) * 
        .
      
     BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
     BinaryStream.
      BinaryStream = 
 

при записи в данном случае размер файла увеличивается в 2 раза(Unicode)
но конечные файлы совпадают
как изменить код процедур чтобы размер файла при записи не увеличивался
пытался изменить код тогда при чтении файл не верный
(это нужно для компресии текста)

Решение задачи: «Open for binary для VBScript»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> CreateComressed
   <font color="blue">Dim</font> sh, fso, MyFile
   <font color="blue">Set</font> sh = WScript.CreateObject (<font color="teal">"WSCript.Shell"</font>)
   <font color="blue">Set</font> fso = CreateObject(<font color="teal">"Scripting.FileSystemObject"</font>)
   <font color="blue">Set</font> MyFile = fso.CreateTextFile(<font color="teal">"testfile.txt"</font>, True)
   MyFile.WriteLine(<font color="teal">"This is a test."</font>)
   MyFile.<font color="blue">Close</font>
   sh.Run <font color="teal">"gzip -9 testfile.txt"</font>, <font color="darkblue"><b>0</b></font>, true
   fso.MoveFile <font color="teal">"testfile.txt.gz"</font>, <font color="teal">"//shared_folder/testfile.txt.gz"</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        