Enregistrement d'un fichier avec du contenu binaire en VBS

Comment enregistrer du contenu binaire dans un fichier en VBS ?

Voici le script.

Function SaveBinaryData(FileName, ByteArray)
  Const adTypeBinary = 1
  Const adSaveCreateOverWrite = 2
  
  'création object Stream
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
  
  'spécifier type stream - dans notre exemple nous voulons sauvegarder des données binaires.
  BinaryStream.Type = adTypeBinary
  
  'Ouvrir le stream et écrire les données binaires dans l'object
  BinaryStream.Open
  BinaryStream.Write ByteArray
  
  'Sauvegarder les données binaires sur disque
  BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function

Exemple d'utilisation de cette fonction :

// byteData contient mes données binaires
SaveBinaryData "mon_fichier", byteData