如何将字符串变量从vbs文件返回到批处理文件

Question

我有一个批处理文件，它运行并调用名为“SelectNBType.vbs”的 .vbs 文件 提到的 .vbs 文件提示一个小的 UI 输出，供用户输入字符串，如图所示。

///Start of Batch file///
For /F "Tokens=2 Delims=" %%I In ('cscript //nologo SelectNBType.vbs') Do 
Set _NBType=%%I

IF %_NBType%==n (
Echo Normal

)
IF %_NBType%=="c" (
Echo Common
)

还有如下的.VBS

////Start of .VBS file
titletext = "Select Notebook Type"  
prompttext = "Enter NB Type"

NBType = inputbox(prompttext & chr(13) & "   (Type n if NORMAL user NB)" & 
chr(13) & "   (Type n if COMMON/POOL user NB)", titletext)

if NBType = "n" Then
x=MsgBox ("You have selected a Normal Notebook",0+32,"Notification")
WScript.Quit 1

elseif NBType = "c" Then
x=MsgBox ("You have selected a Common/Pool Notebook",0+32,"Notification")

End If

我正在尝试找出一种方法来允许 .vbs 文件将用户输入的输出作为字符串返回到批处理文件，以便以后可以使用它 if条件中的批处理文件如图所示。

谢谢

Answer 1

您真的需要将选择作为字符串传递吗？如果您只有两个选项，则可以使用 WScript.Quit 1 或 WScript.Quit 2 返回每个选项，并在批处理文件中使用该值，如下所示：

VBS：

titletext = "Select Notebook Type"  
prompttext = "Enter NB Type"

NBType = inputbox(prompttext & chr(13) & "   (Type n if NORMAL user NB)" & chr(13) & "   (Type c if COMMON/POOL user NB)", titletext)

If NBType = "n" Then
   MsgBox "You have selected a Normal Notebook",0+32,"Notification"
   WScript.Quit 1
Elseif NBType = "c" Then
   MsgBox "You have selected a Common/Pool Notebook",0+32,"Notification"
   WScript.Quit 2
End If

英美烟草：

cscript //nologo SelectNBType.vbs
IF %ERRORLEVEL% EQU 1 ECHO You have selected a Normal Notebook.
IF %ERRORLEVEL% EQU 2 ECHO You have selected a Common/Pool Notebook.

Answer 2

在使用CScript 运行时写入StdOut 的VBScript 中使用wscript.echo（使用wscript 运行时写入msgbox）。

 For /f "delims=" %%A in (`cscript //nologo c:\file.vbs`) do echo %%A

见for /?。