Binarys mit vbs lesen und schreiben

Set Fso = CreateObject("Scripting.FileSystemObject")  
titel = fso.getBaseName(wscript.scriptname)
input = "C:\mein Pfad\main.ico"  
output = "C:\mein Pfad\temporär Ascii von main.ico.txt"  

'nur zur Sicherheit  
if Not MsgBox("Wirklich ausführen?" & vbLf & "Dateien werden eventuell überschrieben!",32+1,titel)=vbOK Then wscript.quit  

'jetzt gehts los  
set oD1 = fso.openTextFile(input, 1)
set oD2 = fso.openTextFile(output, 2, 1)

Do Until oD1.atEndOfStream
 a1 = oD1.read(1)
 a2 = Asc(a1)
 oD2.write Right("00" & a2, 3)  
loop

MsgBox "Fertig",,titel  

'hier den code an "ascCode" zuweisen (Beispiel)  
ascCode = "077097120"  '77 97 120 -->Max  
Const IcoTargetPath = "C:\mein zielPfad\main.ico"  

Set BinFile = Fso.CreateTextFile(IcoTargetPath)

For i = 1 To Len(ascCode) step 3
 a = Mid(ascCode, i, 3)
 BinFile.Write chr(a)
Next

BinFile.Close
set BinFile = Nothing

Sub geschw_Click
 vS = Replace(document.all.distanz.value,",",".") 'Komma mit Punkt ersetzen  
 vT = Replace(document.all.zeit.value,",",".") 'Komma mit Punkt ersetzen  

 vSType = document.all.distanzType.value    'Einheit der Strecke  
 vTType = document.all.zeitType.value    'Einheit der Zeit  
 vVSType = document.all.geschwType1.value    'StreckenEinheit der Geschwindigkeit  
 vVTType = document.all.geschwType2.value    'ZeitEinheit der Geschwindigkeit  

'überprüfung  
 if vS = "" Then MsgBox "Keine Distanz angegeben",48,"Fehler" : document.all.distanz.select() : Exit Sub  
 if vT = "" Then MsgBox "Keine Zeit angegeben",48,"Fehler" : document.all.zeit.select() : Exit Sub  
 if Not IsNumeric(vS) Then MsgBox """" & vS & """ ist keine gültige Zahl",48,"Fehler" : document.all.distanz.select() : Exit Sub  
 if Not IsNumeric(vT) Then MsgBox """" & vT & """ ist keine gültige Zahl",48,"Fehler" : document.all.zeit.select() : Exit Sub  

'ausrechnung  
 vS = (vS * vSType)    'Strecke in [Meter] umrechnen  
 vT = (vT * vTType)   'Zeit in [Sekunden] umrechnen  
 vV = (vS / vT)    'Geschw. in [Meter pro Sekunde] rechnen  
 vV = (vV / vVSType)    'Geschw. in [Strecke pro Sekunde] umrechnen  
 vV = (vV * vVTType)    'Geschw. in [Strecke pro Zeit] umrechnen  
 document.all.geschw.value = vV    'Ergebnis ausgeben  
End Sub

<table>
 <tr>
  <td>
   <a href="#" onclick="vbscript:distanz_Click">Distanz:</a>  
  </td>
  <td>
   <input name="distanz" type="text" tabindex="04" maxlength="6" width="7">  
  </td>
  <td>
   <select name="distanzType" tabindex="05">  
    <option value="0.001">Millimeter</option>  
    <option value="0.01">Zentimeter</option>  
    <option value="0.1">Dezimeter</option>  
    <option value="1" selected>Meter</option>  
    <option value="1000">Kilometer</option>  
    <option value="299797000">Lichtsekunden</option>  
    <option value="17987820000">Lichtminuten</option>  
    <option value="1079269200000">Lichtstunden</option>  
    <option value="9460873807200000">Lichtjahre</option>  
   </select>
  </td></tr>
 <tr>
  <td>
   <a href="#" onclick="vbscript:zeit_Click">Zeit:</a>  
  </td><td>
   <input type="text" name="zeit" width="7" maxlength="6" tabindex="06">  
  </td><td>
   <select name="zeitType" tabindex="07">  
    <option value="1">Sekunden</option>  
    <option value="60">Minuten</option>  
    <option value="3600">Stunden</option>  
    <option value="43200">Tage (12h)</option>  
    <option value="86400">Tage (24h)</option>  
    <option value="31557600">Jahre</option>  
   </select>
  </td></tr><tr><td>
   <a href="#" onclick="vbscript:geschw_Click">Geschwindigkeit:</a>  
  </td><td>
   <input type="text" name="geschw" value="" maxlength="16" tabindex="09">  
  </td><td>
   <select name="geschwType1" tabindex="10">  
    <option value="0.001">mm</option>  
    <option value="0.01">cm</option>  
    <option value="0.1">dm</option>  
    <option value="1">m</option>  
    <option value="1000" selected>km</option>  
    <option value="299797000">Ls</option>  
    <option value="17987820000">Lmin</option>  
    <option value="1079269200000">Lh</option>  
    <option value="9460873807200000">Lj</option>  
   </select> /
   <select name="geschwType2" tabindex="10">  
    <option value="1">s</option>  
    <option value="60">min</option>  
    <option value="3600" selected>h</option>  
    <option value="43200">Tag (12h)</option>  
    <option value="86400">Tag (24h)</option>  
    <option value="31557600">Jahr</option>  
   </select>
  </td>
 </tr>
</table>