::'--------------- Batch portion ------------------

rem^ &@echo off

rem^ &title Batch File Compiler 1

rem^ &setlocal

rem^ &cls

rem^ &echo ........................  ThaiBatchFile.blogspot.com  ...........................

rem^ &echo.

rem^ &echo 888888b.            888            888           8888888888 d8b 888              

rem^ &echo 888  ^"88b           888            888           888        Y8P 888              

rem^ &echo 888  .88P           888            888           888            888              

rem^ &echo 8888888K.   8888b.  888888 .d8888b 88888b.       8888888    888 888  .d88b.      

rem^ &echo 888  ^"Y88b     ^"88b 888   d88P^"    888 ^"88b      888        888 888 d8P  Y8b     

rem^ &echo 888    888 .d888888 888   888      888  888      888        888 888 88888888     

rem^ &echo 888   d88P 888  888 Y88b. Y88b.    888  888      888        888 888 Y8b.         

rem^ &echo 8888888P^"  ^"Y888888  ^"Y888 ^"Y8888P 888  888      888        888 888  ^"Y8888      

rem^ &echo.                                                                                  

rem^ &echo.                                                                                  

rem^ &echo.                                                                                  

rem^ &echo  .d8888b.                                  d8b 888                        d888   

rem^ &echo d88P  Y88b                                 Y8P 888                       d8888   

rem^ &echo 888    888                                     888                         888   

rem^ &echo 888         .d88b.  88888b.d88b.  88888b.  888 888  .d88b.  888d888        888   

rem^ &echo 888        d88^"^"88b 888 ^"888 ^"88b 888 ^"88b 888 888 d8P  Y8b 888P^"          888   

rem^ &echo 888    888 888  888 888  888  888 888  888 888 888 88888888 888            888   

rem^ &echo Y88b  d88P Y88..88P 888  888  888 888 d88P 888 888 Y8b.     888            888   

rem^ &echo  ^"Y8888P^"   ^"Y88P^"  888  888  888 88888P^"  888 888  ^"Y8888  888          8888888 

rem^ &echo                                   888                                            

rem^ &echo                                   888                                            

rem^ &echo                                   888                                          

rem^ &echo.

rem^ &echo.................................................................................

rem^ &echo.

rem^ &set /p p=[ Drag and Drop input Batch File Convert to Execute File ] 

rem^ &wscript //nologo //e:vbscript %0 %p%

rem^ &for /f "tokens=* delims=" %%v in ('dir /b /s /a:-d  /o:-n "%SystemRoot%Microsoft.NETFramework*jsc.exe"') do (set "jsc=%%v")

rem^ &"%jsc%" /nologo /out:"%CD%My Batch Application.EXE" "%TEMP%IsRun.JS"

rem^ &"%cd%My Batch Application.EXE"

rem^ &endlocal 

rem^ &del "%TEMP%IsRun.JS"

rem^ &exit /b %errorlevel%

::'--------------- VBS portion ------------------

Dim file, content, line

Set args = Wscript.Arguments

Set file = CreateObject("Scripting.FileSystemObject")TextFile(args(0), 1, True)

content = "var content = " & chr(34) & "n" & chr(34) & ";" & vbCRLF

Do Until file.AtEndOfStream

line = file.ReadLine

line = replace(line,"", "")

line = replace(line,chr(34),"" & chr(34))

line = replace(line,chr(39),"" & chr(39))

line = "content = content + " & chr(34) & line & "n" & chr(34) & ";"

content = content & line & vbCRLF

Loop

content = content & "var wshShell = new ActiveXObject(" & chr(34) & "WScript.Shell" & chr(34) & ");" & vbCRLF

content = content & "var fso = new ActiveXObject(" & chr(34) & "Scripting.FileSystemObject" & chr(34) & ");" & vbCRLF

content = content & "var tmp = wshShell.ExpandEnvironmentStrings(" & chr(34) & "%TEMP%" & chr(34) & ");" & vbCRLF

content = content & "var file = fso.CreateTextFile(tmp + " & chr(34) & "IsRun.CMD" & chr(34) & ",true);" & vbCRLF

content = content & "file.Write(content);" & vbCRLF

content = content & "file.Close();" & vbCRLF

content = content & "wshShell.Run(tmp + " & chr(34) & "IsRun.CMD" & chr(34) & ");" & vbCRLF

Set WS=CreateObject("WScript.Shell")

Set file = CreateObject("Scripting.FileSystemObject")TextFile(WS.ExpandEnvironmentStrings("%TEMP%") & "IsRun.JS", 2, True)

file.Write(content)

file.Close