VBS Output

::VBSOUTPUT.CMD was written by Fawers
::===================================
::Syntax:
::vbsoutput str [strDescription] [windowTitle]
::                       --str               Output string
::                       --strDescription    Brief description
::                       --windowTitle       Window Title
::Parameters in [brackets] are optional.

@echo off
setlocal disableDelayedExtension 2>nul||setlocal
if "%~1" == "" (
  setlocal enableDelayedExpansion
  echo,
  for /f "skip=2 delims=" %%t in ('type "%~f0"^|find "::"^|find /v "for /f"'
) do (set line=%%t
    echo,!line:~2!
  )
  endlocal
  exit /b 1
)
pushd %temp%
set vbs="%~n0.vbs"
for /f "tokens=2 delims=:" %%c in ('chcp') do set /a "code=%%c"
if not [%code%] == [1252] chcp 1252 >nul 2>&1
>%vbs% echo inputbox "%~2", "%~3", "%~1"
chcp %code% >nul 2>&1
wscript %vbs%
del %vbs%
popd
endlocal
exit /b