Scripting_Encoder.vbs

REM Scripting_Encoder

option explicit

dim oencoder, ofilestoencode, sfile, sdest
dim sfileout, ofile, oencfile, ofso
dim ostream, ssourcefile

set ofilestoencode = wscript.arguments
if ofilestoencode.count = 0 then
    msgbox "Open with or Drag'n'drop files to encode"
    wscript.quit
end if
set oencoder = createobject("Scripting.Encoder")
for each sfile in ofilestoencode
    set ofso = createobject("Scripting.FileSystemObject")
    msgbox "Source file to encode " & sfile
    set ofile = ofso.getfile(sfile)
    set ostream = ofile.openastextstream(1)
    ssourcefile=ostream.readall
    ostream.close
    sdest = oencoder.encodescriptfile(".vbs", ssourcefile, 0, "")
    sfileout = left(sfile, len(sfile) - 3) & "vbe"
    set oencfile = ofso.createtextfile(sfileout)
    oencfile.write sdest
    oencfile.close
    msgbox "Destination file completed " & sfileout
next