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

[andry81]

contools/Scripts/Tools/ToolAdaptors/hta/Samples/mshta_cmd_elevate.bat

Lines 1 to 65 in 31872ca

	@echo off
	setlocal DISABLEDELAYEDEXPANSION
	call "%%~dp0..\..\__init__\__init__.bat" || exit /b
	rem Uniform variant of a command line as a single argument for the `mshta.exe`
	rem executable and other cases.
	rem You must take care about escaping of nested quotes and Windows Batch
	rem control characters.
	rem NOTE:
	rem `ExecuteGlobal` is used as a workaround, because the `mshta.exe` first
	rem argument must not be used with the surrounded quotes.
	rem Windows Batch compatible command line with escapes (`\""` is a single nested `"`, `\""""` is a double nested `"` and so on).
	set "__QARG0__=vbscript:ExecuteGlobal(\""Close(CreateObject(\""""Shell.Application\"""").ShellExecute(\""""%COMSPEC%\"""", \""""/k @cd \""""""""%CD%\"""""""" & %CD:~0,2% & \""""""""%CONTOOLS_UTILITIES_BIN_ROOT%/contools/printargs.exe\"""""""" \""""""""123 456\""""""""\"""", \""""\"""", \""""runas\"""", True))\"")"
	rem Command line variant for the Windows Batch `echo` command
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!__QARG0__!") do endlocal & ^
	echo.^>%%i
	echo.---
	rem Command line variant for the executable with C runtime command line parser
	rem translate Windows Batch compatible escapes into escape placeholders
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!__QARG0__:$=$0!") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:\""""""""=$3!") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:\""""=$2!") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:\""=$1!") do endlocal & set "?.=%%i"
	rem translate escape placeholders into C runtime command line escapes
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:$3=\\\\\\\"!"") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:~0,-1!") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:$2=\\\"!"") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:~0,-1!") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:$1=\"!"") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:~0,-1!") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:$0=$!") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.!") do endlocal & ^
	start /B /WAIT "" "%CONTOOLS_UTILITIES_BIN_ROOT%/contools/printargs.exe" "%%i"
	echo.---
	rem Command line variant for `mshta.exe` executable
	rem translate Windows Batch compatible escapes into escape placeholders
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!__QARG0__:$=$0!") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:\""""""""=$3!") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:\""""=$2!") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:\""=$1!") do endlocal & set "?.=%%i"
	rem translate escape placeholders into `mshta.exe` (vbs) escapes (`""` is a single nested `"`, `""""` is a double nested `"` and so on)
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:$3=""""!") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:$2=""!") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:$1="!"") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:~0,-1!") do endlocal & set "?.=%%i"
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.:$0=$!") do endlocal & set "?.=%%i"
	set ?.
	setlocal ENABLEDELAYEDEXPANSION & for /F "tokens=* delims="eol^= %%i in ("!?.!") do endlocal & ^
	start /B /WAIT "" "%SystemRoot%\System32\mshta.exe" %%i

Output:

>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/Utilities/bin/contools/printargs.exe\"""""""" \""""""""123 456\""""""""\"""", \""""\"""", \""""runas\"""", True))\"")
---
81|w:/work/MyProjects/andry81/contools/contools/Utilities/bin/contools/printargs.exe|
354|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/Utilities/bin/contools/printargs.exe\\\" \\\"123 456\\\"\", \"\", \"runas\", True))")|
---
?.=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/Utilities/bin/contools/printargs.exe"""" """"123 456"""""", """", ""runas"", True))")