Добавление длины двоичного файла к себе в VBScript

Question

Я пытаюсь найти способ добавить 32-битные двоичные данные, которые содержат длину двоичного файла, в начало двоичного файла. Вот что у меня есть:

Dim size, sizeStr, n
Dim byteArray

const adTypeText=2
const adTypeBinary=1

dim inStream, outStream

set inStream=WScript.CreateObject("ADODB.Stream")
set outStream=WScript.CreateObject("ADODB.Stream")

inStream.Open
inStream.type=adTypeBinary

outStream.Open
outStream.type=adTypeBinary

inStream.LoadFromFile("test.bin")
size = inStream.Size
'Converts a decimal value to a 32-bit binary string
sizeStr = DecimalToBinary(size)

outStream.Write sizeStr
outStream.Write = inStream.Read()

outStream.SaveToFile("output.bin")

outStream.Close()
inStream.Close()

Что мне сделать, чтобы получить двоичную строку sizeStr в форму, которую можно записать с помощью функции outStream.Write?