Uniform variant of a command line as a single argument for the mshta.exe executable and other cases

[andry81]

https://github.com/andry81/contools/tree/HEAD/scripts/tools/ToolAdaptors/hta/Samples/mshta_cmd_elevate.bat

The __QARG0__ forms a Windows Batch compatible command line with escapes, where:
\"" is a single nested ", \"""" is a double nested " , \"""""" is a triple nested " and so on.

Note

The \"" sequence always have has an even number of double quotes to always quote a string in between because the set command argument is started by a quote.

Caution

\"", \"""", etc expressions only has meaning inside a .bat script.
Any attempt to use it outside of a script (including a terminal command line) will lead into incorrect expansion because a terminal command line or an .exe command line has their own different expansion rules including command line of the cmd.exe executable.

Output:

__QARG0__=vbscript:ExecuteGlobal(\""Close(CreateObject(\""""Shell.Application\"""").ShellExecute(\""""C:\WINDOWS\system32\cmd.exe\"""", \""""/k @cd \""""""w:\work\MyProjects\andry81\contools\contools\scripts\tools\ToolAdaptors\hta\Samples\"""""" & w: & \""""""w:/work/MyProjects/andry81/contools/contools/_externals/contools--utils/bin/contools/printargs.exe\"""""" \""""""123 456\""""""\"""", \""""\"""", \""""runas\"""", 1))\"")
---
Translated into C runtime command line format:

?.=vbscript:ExecuteGlobal(\"Close(CreateObject(\\\"Shell.Application\\\").ShellExecute(\\\"C:\WINDOWS\system32\cmd.exe\\\", \\\"/k @cd \\\\\\\"w:\work\MyProjects\andry81\contools\contools\scripts\tools\ToolAdaptors\hta\Samples\\\\\\\" & w: & \\\\\\\"w:/work/MyProjects/andry81/contools/contools/_externals/contools--utils/bin/contools/printargs.exe\\\\\\\" \\\\\\\"123 456\\\\\\\"\\\", \\\"\\\", \\\"runas\\\", 1))\")
---
Executed as `printargs.exe "<?.>"` (with quotes):

98|w:/work/MyProjects/andry81/contools/contools/_externals/contools--utils/bin/contools/printargs.exe|
368|vbscript:ExecuteGlobal("Close(CreateObject(\"Shell.Application\").ShellExecute(\"C:\WINDOWS\system32\cmd.exe\", \"/k @cd \\\"w:\work\MyProjects\andry81\contools\contools\scripts\tools\ToolAdaptors\hta\Samples\\\" & w: & \\\"w:/work/MyProjects/andry81/contools/contools/_externals/contools--utils/bin/contools/printargs.exe\\\" \\\"123 456\\\"\", \"\", \"runas\", 1))")|
---
Translated into `mshta.exe` command line format:

?.=vbscript:ExecuteGlobal("Close(CreateObject(""Shell.Application"").ShellExecute(""C:\WINDOWS\system32\cmd.exe"", ""/k @cd """"w:\work\MyProjects\andry81\contools\contools\scripts\tools\ToolAdaptors\hta\Samples"""" & w: & """"w:/work/MyProjects/andry81/contools/contools/_externals/contools--utils/bin/contools/printargs.exe"""" """"123 456"""""", """", ""runas"", 1))")
---
Executed as `start /B /WAIT "" mshta.exe <?.>` (without quotes):

98|w:/work/MyProjects/andry81/contools/contools/_externals/contools--utils/bin/contools/printargs.exe|
07|123 456|