我如何使VBS文件正常工作？

我创建了一个新的批处理代码，以使用户的生活更加轻松，以便集成一些vbs文件，这些文件将在执行时自动与批处理文件一起生成。此批处理代码基于搜索，并使用正则表达式和vbscript进行替换。因此，用户只需将vbscript拖放到该批处理脚本上即可。瞧！

@echo off
Title Vbs2Bat Intergration using Regex with vbscript by Hackoo 2020
Set "InputFile=%~1"
If ["%InputFile%"] EQU [""] Goto :Help
Set "TempFile=%Temp%\%~n1.tmp"
Set "OutPutFile=%~dpn1_.txt"
Call :Search_Replace "%InputFile%" "%TempFile%"
REM ------------------------Generate the formatted file------------------------------
> "%OutPutFile%" ( 
    echo @echo off
    echo Call :Generate_VBS_File
    echo Call :Execute_VBS_File
    echo REM -----------------------------------------------------------------------------
    echo :Generate_VBS_File
    echo ^>"%%tmp%%\%%~n0.vbs" ( 
)
>> "%OutPutFile%" (@for /f "tokens=* delims=" %%a in ('Type "%TempFile%"') do echo. echo    %%a)
>> "%OutPutFile%" (
    echo ^)
    echo Exit /B
    echo REM -----------------------------------------------------------------------------
    echo :Execute_VBS_File
    echo cscript //nologo "%%tmp%%\%%~n0.vbs"
    echo If Exist "%%tmp%%\%%~n0.vbs" Del "%%tmp%%\%%~n0.vbs"
    echo Exit /B
    echo REM -----------------------------------------------------------------------------
)
REM ---------------------------------------------------------------------------------
If Exist "%TempFile%" Del "%TempFile%"
If Exist "%OutPutFile%" Start "" "%OutPutFile%" & Exit
::-----------------------------------------------------------------------------------
:Search_Replace <InputFile> <OutPutFile>
(
    echo WScript.StdOut.WriteLine Search_Replace(Data^)
    echo Function Search_Replace(Data^)
    echo Dim strPattern, strReplace, strResult,oRegExp
    echo Data = "%~1" 
    echo Data = WScript.StdIn.ReadAll
    echo Set oRegExp = New RegExp
    echo oRegExp.Global = True 
    echo oRegExp.Multiline = True 
    echo oRegExp.IgnoreCase = True 
    echo strPattern1 = "[)&<|>]"
    echo oRegExp.Pattern = strPattern1
    echo strReplace1 = "^$+"
    echo strResult1 = oRegExp.Replace(Data,strReplace1^)
    echo strPattern2 = "[%%]"
    echo oRegExp.Pattern = strPattern2
    echo strReplace2 = "%%$+"
    echo strResult2 = oRegExp.Replace(strResult1,strReplace2^)
    echo Search_Replace = strResult2
    echo End Function
)>"%tmp%\%~n0.vbs"
cscript //nologo "%tmp%\%~n0.vbs" < "%~1" > "%~2"
If Exist "%tmp%\%~n0.vbs" Del "%tmp%\%~n0.vbs"
Exit /B
::----------------------------------------------------------------------------------
:Help
Mode 70,4 & Color 0C
echo(
echo      You should drag and drop a VBS file over, 
echo      this script "%~nx0" to be converted !
Timeout /T 10 /NoBreak>nul
Exit
::----------------------------------------------------------------------------------