js/vbs/html/hta and more hybrids and chimeras in cmd/bat

Discussion forum for all Windows batch related topics.

Moderator: DosItHelp

Message
Author
siberia-man
Posts: 91
Joined: 26 Dec 2013 09:28
Contact:

js/vbs/html/hta and more hybrids and chimeras in cmd/bat

#1 Post by siberia-man » 21 Apr 2014 03:43

* * * * * *
Everything said here is correct. However during discussions some parts of this message became obsolete.
The resulting message accumulating all good points of this thread is located by the following link:
http://www.dostips.com/forum/viewtopic.php?p=37780#p37780
* * * * * *


js in cmd/bat
these solutions are world-wide and well-known.

Code: Select all

@set @x=0 /*
@echo off
cscript /nologo /e:javascript %0
goto:EOF */

WScript.Echo('Hello from JScript');


Code: Select all

@if (true == false) @end /*
@echo off
cscript //nologo //e:javascript "%~dpnx0" %*
goto :EOF */

WScript.Echo('Hello from JScript');


html in cmd/bat
this is the first version. It uses the trick to clean the resulting page on from the wrong markups.

Code: Select all

:<nul>nul

@echo off
start mshta "%~f0"
goto :EOF

<script type="text/javascript">
document.body.innerHTML = '';
</script>

<html>
<head>
<title>HTML-in-BATCH</title>
</head>
<body>
<h1>Hello, world!</h1>
</body>
</html>


the second version found by the programmer from Russia is the best. http://forum.script-coding.com/viewtopic.php?pid=79317#p79317

Code: Select all

<!-- :
@echo off
start "" mshta.exe "%~f0"
exit /b
-->

<html>
<head><title>HTA window</title></head>
<body><h1>Hello, world!</h1></body>
</html>


The better way to use mshta instead of cscript. The better is in the terms of friendliness, development and support (compare with ugly mshta "javascript:..."). This can be used for both js-in-cmd or html-in-cmd. (found by npocmaka_ in http://www.dostips.com/forum/viewtopic.php?p=33783#p33783).

Code: Select all

@if (true == false) @end /*!
@echo off
mshta "about:<script src='file://%~f0'></script><script>close()</script>" %*
goto :EOF */

alert("Hello, world!");


vbs in cmd/bat
This is not true hybrid because it uses a js-layer between cmd and vbs. In fact this is js-in-cmd solution running vbs within js. Take a look: two ways similar each other (taken from http://forum.script-coding.com/viewtopic.php?pid=79691#p79691)

Code: Select all

@if (true == false) @end /*
@echo off
set "SYSDIR=SysWOW64"
if "%PROCESSOR_ARCHITECTURE%" == "x86" if not defined PROCESSOR_ARCHITEW6432 set "SYSDIR=System32"
"%WINDIR%\%SYSDIR%\cscript.exe" //nologo //e:javascript "%~f0" %*
goto :EOF */

(function(readFile, code)
{
    var e;
    try {
        var vb = new ActiveXObject('MSScriptControl.ScriptControl');
        vb.Language = 'VBScript';
        vb.AddObject('WScript', WScript, true);
        vb.AddCode(code);
    } catch(e) {
        var file = readFile();
        var prologLen = file.slice(0, file.indexOf(code)).split('\n').length;
        var vbe = vb.Error;
        WScript.Echo(
            WScript.ScriptFullName +
            '(' + ( prologLen + vbe.Line - 1 ) + ', ' + vbe.Column + ') ' +
            vbe.Source + ': ' + vbe.Description);
    }
})(
function()
{
    var fso = new ActiveXObject('Scripting.FileSystemObject');
    var f = fso.OpenTextFile(WScript.ScriptFullName, 1, true);
    var file = f.ReadAll();
    f.Close();
    return file;
},
(function()
{
    return arguments.callee.toString().replace(/^[\s\S]+\/\*|\*\/[\s\S]+$/g, '');
/* ' VBScript

WScript.Echo "Hello, world!"

*/
})());


Code: Select all

@if (true == false) @end /*
@echo off
set "SYSDIR=SysWOW64"
if "%PROCESSOR_ARCHITECTURE%" == "x86" if not defined PROCESSOR_ARCHITEW6432 set "SYSDIR=System32"
"%WINDIR%\%SYSDIR%\cscript.exe" //nologo //e:javascript "%~f0" %*
goto :EOF */

var prologLen = 0;
var vb = new ActiveXObject('MSScriptControl.ScriptControl');
vb.Language = 'VBScript';
vb.AddObject('WScript', WScript, true);
try {
    vb.AddCode((function () {
        var fso = new ActiveXObject("Scripting.FileSystemObject");
        var f = fso.OpenTextFile(WScript.ScriptFullName, 1, false);
        do prologLen++; while (f.ReadLine() != "/* ' VBScript");
        var code = f.ReadAll();
        f.Close();
        return code;
    })());
} catch (e) {
    var vbe = vb.Error;
    WScript.StdErr.WriteLine(
        WScript.ScriptFullName +
        '(' + ( prologLen + vbe.Line ) + ', ' + vbe.Column + ') ' +
        vbe.Source + ': ' + vbe.Description);
}
/* ' VBScript

WScript.Echo "Hello, world!"

'*/
Last edited by siberia-man on 21 Jul 2016 09:31, edited 3 times in total.

aGerman
Expert
Posts: 3076
Joined: 22 Jan 2010 18:01
Location: Germany

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#2 Post by aGerman » 21 Apr 2014 03:55

Another VBScript example

Code: Select all

::'@echo off &cscript //nologo //e:vbscript "%~f0"
::'>nul pause
::'exit /b
WScript.Echo "test"


There is a SUB character (0x1a) next to each apostrophe. Just in case it doesn't appear if you copy the code.

Regards
aGerman

foxidrive
Expert
Posts: 6033
Joined: 10 Feb 2012 02:20

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#3 Post by foxidrive » 21 Apr 2014 04:00

aGerman wrote:Another VBScript example
There is a SUB character (0x1a) next to each apostrophe. Just in case it doesn't appear if you copy the code.


I can't see how that will execute the batch code. Is the SUB character before the apostrophe?

aGerman
Expert
Posts: 3076
Joined: 22 Jan 2010 18:01
Location: Germany

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#4 Post by aGerman » 21 Apr 2014 04:19

No it isn't.

For Batch interpretation:
:: initiates a Batch comment. The SUB is interpreted as line break in this case. That means the expression next to the SUB will be executed.

For VBScript interpretation:
Colons are interpreted as separators. (E.g. Dim var : Set var = New RegExp). They don't have any effect if they are written at the beginning of a line. The apostroph initiates a comment though. The following SUB doesn't influence it.

Regards
aGerman

siberia-man
Posts: 91
Joined: 26 Dec 2013 09:28
Contact:

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#5 Post by siberia-man » 21 Apr 2014 04:21

I copied and pasted the code from the post by aGerman. I can see those ascii26 AFTER each apostrophs.

aGerman
Expert
Posts: 3076
Joined: 22 Jan 2010 18:01
Location: Germany

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#6 Post by aGerman » 21 Apr 2014 04:24

I can see those ascii26 AFTER each apostrophs.

Yes, that's the SUB character. It should work then.

Regards
aGerman

foxidrive
Expert
Posts: 6033
Joined: 10 Feb 2012 02:20

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#7 Post by foxidrive » 21 Apr 2014 04:33

Thanks to you both. I can see the SUB characters too in a copy and paste.

I'm amazed at the ingenuity of people to figure out such workarounds.

aGerman
Expert
Posts: 3076
Joined: 22 Jan 2010 18:01
Location: Germany

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#8 Post by aGerman » 21 Apr 2014 04:38

I'm amazed at the ingenuity of people to figure out such workarounds.

I should have mentioned that it was dbenham for my example. I can't find the thread where he originally posted it. But I remember it was here at DosTips ...

Regards
aGerman

EDIT Found it.
http://www.dostips.com/forum/viewtopic.php?f=3&t=2863&p=13170#p13170

npocmaka_
Posts: 446
Joined: 24 Jun 2013 17:10
Location: Bulgaria
Contact:

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#9 Post by npocmaka_ » 21 Apr 2014 13:30

siberia-man wrote:
the second version found by the programmer from Russia is the best. http://forum.script-coding.com/viewtopic.php?pid=79317#p79317

Code: Select all

<!-- :
@echo off
start "" mshta.exe "%~f0"
exit /b
-->

<html>
<head><title>HTA window</title></head>
<body><h1>Hello, world!</h1></body>
</html>




This is amazing . In this way you can have both (browser versions ) of javascript and vbscript in one file and have no poisonous echo :


Code: Select all

<!-- :
@echo off
 mshta.exe "%~f0" %*
exit /b
 rem
-->
<html>
<head>
<title>Command Line Agruments</title>

<HTA:APPLICATION
     ID="objTestHTA"
     APPLICATIONNAME="Command Line Agruments"
     SINGLEINSTANCE="yes"
>
</head>

<SCRIPT Language="VBScript">

alert(objTestHTA.commandLine)
Sub Window_onLoad
    arrCommands = Split(objTestHTA.commandLine, chr(34))
    For i = 3 to (Ubound(arrCommands) - 1) Step 2
        Msgbox arrCommands(i)
    Next
End Sub

</SCRIPT>

<body>
</body>
</html>



(thought for something similar with frames) . But will this work on fat32 ? Is this redirecting to / from ADS ?

EDIT -its the same as ":<!-- " no ADS
Last edited by npocmaka_ on 21 Apr 2014 14:03, edited 2 times in total.

npocmaka_
Posts: 446
Joined: 24 Jun 2013 17:10
Location: Bulgaria
Contact:

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#10 Post by npocmaka_ » 21 Apr 2014 13:35

and this..
http://stackoverflow.com/questions/9074 ... ut-using-a

Code: Select all

:sub echo(str) :end sub
echo off
'>nul 2>&1|| copy /Y %windir%\System32\doskey.exe %windir%\System32\'.exe >nul

'& echo/
'& cscript /nologo /E:vbscript %~f0
'& echo/
'& echo BATCH: Translation is at best an ECHO.
'& echo/
'& pause
'& rem del /q "%windir%\System32\'.exe"
'& exit /b

WScript.Echo "VBScript: Remorse is the ECHO of a lost virtue."
WScript.Quit
Last edited by npocmaka_ on 28 Jan 2015 01:12, edited 1 time in total.

Liviu
Expert
Posts: 470
Joined: 13 Jan 2012 21:24

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#11 Post by Liviu » 21 Apr 2014 19:34

siberia-man wrote:js in cmd/bat
these solutions are world-wide and well-known.

Code: Select all

@if (true == false) @end /*
@echo off
cscript //nologo //e:javascript "%~dpnx0" %*
goto :EOF */

WScript.Echo('Hello from JScript');

Just as a side note, but since this example in particular attempts to pass the '%*' command line to JScript, it may be worth mentioning that cmd and WSH (the Windows Script Host) parse arguments differently - which matters in some cases where quotes or special characters are involved.

For example, the test run of the following hybrid cmd/js sees 3 arguments in batch code, but only 1 in JScript.

Code: Select all

@if (true == false) @end /* ----------------------------------------- .cmd ----
@echo off
echo(
echo cmd.args = [%*]
echo(
if not '%1'=='' echo cmd.arg1 = [%1]
if not '%2'=='' echo cmd.arg2 = [%2]
if not '%3'=='' echo cmd.arg3 = [%3]
echo(
cscript //nologo //e:javascript "%~f0" %*
goto :eof */

var wshShell = WScript.CreateObject("WScript.Shell"); //-------------- .js ----

for(var n = 1; n <= WScript.Arguments.length; n++)
  WScript.Echo("js.arg" + n + "  = [" + WScript.Arguments(n - 1) + "]");

Code: Select all

C:\tmp>cmd-js 1="2",3

cmd.args = [1="2",3]

cmd.arg1 = [1]
cmd.arg2 = ["2"]
cmd.arg3 = [3]

js.arg1  = [1=2,3]


Liviu

penpen
Expert
Posts: 1454
Joined: 23 Jun 2013 06:15
Location: Germany

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#12 Post by penpen » 22 Apr 2014 10:10

Hmm :( , the best hybrid js/vbs/batch script i am able to create is this:

Code: Select all

Rem = ''; /*
::'' Batch part
Rem^ & @echo off
Rem^ &echo Hello bat world!
Rem^ &cscript //NoLogo //E:JScript test.bat
Rem^ &cscript //NoLogo //E:VBScript test.bat
Rem^ &goto :eof

' VBScript part
WScript.Echo "Hello vbs world!"

' */ '\
'; /* JSript part */ '\
'; WScript.Echo ("Hello js  world!"); '\
';
The batch part echoes nearly the complete first two (batch code) lines ... .

penpen

Liviu
Expert
Posts: 470
Joined: 13 Jan 2012 21:24

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#13 Post by Liviu » 22 Apr 2014 23:04

siberia-man wrote:html in cmd/bat
the second version found by the programmer from Russia is the best. http://forum.script-coding.com/viewtopic.php?pid=79317#p79317

Code: Select all

<!-- :
@echo off
start "" mshta.exe "%~f0"
exit /b
-->
[... html code here ...]

Cool trick, that XML '<!-- -->' comment crossed with a CMD '<etc :' redirected label.

A variation on the same idea seems to work for the cmd/wsf hybrid below - CMD can call embedded JS and VBS, and those two can call each other within a given <job>. Checked ok under xp.sp3 and win7x64.sp1.

Code: Select all

<?xml : version="1.0" encoding="UTF-8" ?> ^<!------------------------- cmd ----
@echo off
echo cmd
cscript //nologo "%~f0?.wsf" //job:JS //job:VBS
exit /b
---------------------------------------------------------------------- wsf --->
<package>
  <job id="JS"> <!----------------------------------------------------- js --->
    <script language="VBScript"><![CDATA[
      sub vbsEcho() : WScript.Echo "cmd.js.vbs" : end sub
    ]]></script>
    <script language="JScript"><![CDATA[
      WScript.Echo("cmd.js");
      vbsEcho();
    ]]></script>
  </job>
  <job id="VBS"> <!--------------------------------------------------- vbs --->
    <script language="JScript"><![CDATA[
      function jsEcho() { WScript.Echo("cmd.vbs.js"); }
    ]]></script>
    <script language="VBScript"><![CDATA[
      WScript.Echo "cmd.vbs"
      call jsEcho
    ]]></script>
  </job>
</package>

Code: Select all

C:\tmp>cmd-wsf.cmd
cmd
cmd.js
cmd.js.vbs
cmd.vbs
cmd.vbs.js

Leaving aside the multi-language and CDATA complications, this also works to embed straight VBScript code into a batch file.

Code: Select all

<!-- : --------------------------------------------------------------- cmd ----
@cscript //nologo "%~f0?.wsf" & exit /b & rem ------------------------ vbs --->
<job><script language="VBScript">
WScript.Echo "cmd.vbs - no CDATA so <" & "/script> would cause XML error here"
</script></job>

Code: Select all

C:\tmp>cmd-vbs.cmd
cmd.vbs - no CDATA so </script> would cause XML error here

FWIW the oddities that make the above work are:
- cscript identifies ".wsf" files by extension alone, it has no documented switch or override like it has for individual //E scripting engines - however, appending "?.wsf" to the full filename appears to work i.e. the filename before "?" is loaded but still treated as an ".wsf" type (and even more odd '?' works but '*:\;etc' don't);
- .wsf appears to require an explicit <?xml version="1.0" ?> in order to recognize <![CDATA[ ]]> syntax, and per XML standards that has to be the first line of the file - however, the MS parser allows an ":" to be inserted in <?xml : version="1.0" ?> without complaining, and the batch interpreter doesn't complain either about an '?' in the presumed "<" filename.

Liviu

siberia-man
Posts: 91
Joined: 26 Dec 2013 09:28
Contact:

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#14 Post by siberia-man » 23 Apr 2014 00:47

Code: Select all

"%~f0?.wsf"

Very interesting trick allowing to run a batch file as wsf scenario. I tried to embed wsf into bat/cmd but all my attempts bumped to impossibility to run bat file as wsf (as it is possible for vbs or js scenarios). Is there source where I could learn more about it? Seems it uses some bug in cmd.exe (or wsh, or hidden feature of one of them).

npocmaka_
Posts: 446
Joined: 24 Jun 2013 17:10
Location: Bulgaria
Contact:

Re: js/vbs/html/hta hybrids and chimeras in cmd/bat

#15 Post by npocmaka_ » 23 Apr 2014 02:02

Here's my attempt to combine batch with wsf:

Code: Select all

@echo off
goto :skip_xml_comment
<!--
:skip_xml_comment

echo(
echo Echo from the batch
echo(

( ren %0 %0.wsf
 cscript %0.wsf
 ren %0.wsf %0 )


exit /b 0
-->

<package>
   <job id="vbs">
      <script language="VBScript">

         WScript.Echo "Echo from the VBS"

      </script>
   </job>
</package>


But is risky as it includes self renaming.

Cool trick with the "%~f0?.wsf" . Shall be tested with powershell :-D

I was wondered if it's possible to register the ".bat" extension to WSH as a dummy extension language and how eventually that could be used but didn't reach so far yet (it's still in my list with crazy ideas).
Last edited by npocmaka_ on 31 Jan 2015 17:51, edited 1 time in total.

Post Reply