Question

陷入困境的IT技术人员在这里寻求帮助！我有2个批处理文件，我需要放置一个GUI而不是最终用户只看到cmd行，因此我需要将代码转换为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!

非常感谢任何帮助！

非常感谢，乔

Answer 1

一个想法：

@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

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

1 个答案: