'?7%00%CCPY-@=PZ5+"P5ZJP^-p*P_-`yPW5KGP5I@P,=P_15$@P_,TP^-&!P5U PHHHPPQu
'Nide/com2txt/X40PR553P58APZVX5WtPR-O9P/-ssP5)eP@@RPZX,AP/5oNP5WI'P-"9PS
'?[XP5^?P-UrPRXRNNNNNN'!VBS2COM 1.05 (C) yoshioka.teruo@nifty.com 2003-08-01
'!cLbcpPFcqPFcrPFKvHlnK@BK?k@JnP@`|jyt@~fZ@Hd~opFNqSO?L|B~rpFyB@CsigPMnP
'@`|jxfN@Uu{NmzdHoWnP@`Ic`E]@SrknowQt@fNPUuYD]Gb?^Npxl~opEGcmvy@BBpC_JnSz
'pzxGPCjnoxIlXEHD^Nv{zA@HhN`@@r{TGsiHo_b|^KOk|AJ|\m@`@|_g\cb@WGQPDoP{DDt~
'mCmDkMHWHQcmv{oPF|@@Fx@DoMHWHBLlBtSLta@@@@@@@@W@@@@Fp@@@ACStuSTDUCOP=
'! CScript //E:VBS //NoLogo 
' vbs2com.VBS  1.05 (C) yoshioka.teruo@nifty.com 2003-08-01
' start vbs2com.vbs vbsfile

Option Explicit
Dim fso
Dim vbsname
Dim vbsfile
Dim dirname
Dim basename
Dim comname
Dim comfile
Dim hfile
Dim line

Set fso=CreateObject("Scripting.FileSystemObject")

If Wscript.Arguments.Count<>1 Then
  Wscript.Echo "VBS2COM makes .VBS file to .COM file" & vbLF & _
               "Usage: vbs2com file.vbs"
  Wscript.Quit
End If

vbsname=Wscript.Arguments.Item(0)

Set vbsfile=fso.OpenTextFile(vbsname)

dirname=fso.GetParentFolderName(vbsname)
basename=fso.GetBaseName(vbsname)
If dirname="" Then
  comname=basename & ".COM"
Else
  comname=dirname & "\" & basename & ".COM"
End If

Set comfile=fso.CreateTextFile(comname)

Set hfile=fso.OpenTextFile(Wscript.ScriptFullName)

Do While Not hfile.AtEndOfStream
  line=hfile.ReadLine
  comfile.WriteLine line
  If Left(line,3)="'! " Then Exit Do
Loop

hfile.Close

Do While Not vbsfile.AtEndOfStream
  line=vbsfile.ReadLine
  comfile.WriteLine line
Loop

vbsfile.Close
comfile.Close

Wscript.Quit