Batch file 将批处理文件转换为VB脚本

一个麻烦的IT技术人员正在这里寻求帮助！我有两个批处理文件，我需要把一个图形用户界面，而不是最终用户只看命令行，因此我需要转换代码到VB。以下是我尝试转换但未成功的两段代码：

@ECHO OFF
ECHO Contract Folder Creator v0.99
ECHO -----------------------------
ECHO.
ECHO Please enter the Client name:
SET /P CLIENT=
ECHO.
ECHO Please enter the Job name:
SET /P JOB=
ECHO.
\\server\Archive\psexec \\server "A:\NewContractBE.cmd" %CLIENT% %JOB% > NUL

第二个文件：

@ECHO OFF
ROBOCOPY "C:\Administration\New Sales Folder" "C:\Contracts\%1\%2" /E /COPY:DAT > NUL
MKDIR "A:\Contracts\%1\%2\Not Backed Up" > NUL
MKDIR "A:\Contracts\%1\%2\Not Backed Up\Other Documents" > NUL
MKDIR "A:\Contracts\%1\%2\Not Backed Up\Pictures" > NUL
MKLINK /J "C:\Contracts\%1\%2\Not Backed Up" "A:\Contracts\%1\%2\Not Backed Up" > NUL
ECHO Done!

任何帮助都将不胜感激

非常感谢,， 乔

一个想法：

@echo off
call :Digita_box "Please enter the Client name:" "Contract Folder Creator v0.99"
set "Client=Digita_"
call :Digita_box "Please enter the JOB name:" "Contract Folder Creator v0.99"
set "Job=Digita_"
ECHO.
\\server\Archive\psexec \\server "A:\NewContractBE.cmd" %CLIENT% %JOB% > NUL
pause >nul
exit /b

:Digita_Box
set Digita_=
set Sub_Tit=%~2
set Mensa=%~1
echo wscript.echo inputbox(WScript.Arguments(0),WScript.Arguments(1)) >"%temp%\Digita_.vbs"
for /f "tokens=* delims=" %%a in ('cscript //nologo "%temp%\Digita_.vbs" "%Mensa%" "%Sub_Tit%"') do set Digita_=%%a
exit /b

---

这将在隐藏的命令窗口中一次运行一行命令（或批处理文件或任何程序）<代码>设置WshShell=WScript.CreateObject（“WScript.Shell”）：WshShell.Run“cmd/k dir c:\windows\*.*”，0，false）谢谢您的评论。：）我需要它是可见的，因为用户需要输入数据。