批量使用 VBScript 中的变量

Question

我想将变量从 VBScript 传递到批处理，但它不起作用。

我的 VBScript：

Dim shell  
Set shell = CreateObject("WScript.Shell")
strnaam = InputBox ("naam")

我的批次：

@echo off
cls
echo %strnaam%
pause

我想要变量 strnaam 从我的 VBScript 到我的批处理。

Answer 1

您只能通过环境变量传递变量：

create_variable.vbs 文件：

Dim WshShell, WshEnv
Set WshShell = CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("USER") ' can be either SYSTEM, USER, VOLATILE OR PROCESS
' current value
WScript.Echo "Process: NAAM=" & WshEnv.Item("NAAM")
WshEnv("NAAM") = "This text will appear in batch"
WScript.Echo "Process: NAAM=" & WshEnv.Item("NAAM")
Set WshEnv = Nothing
Set WshShell = Nothing

然后是 batch 文件 show_vbs_variable.bat（你必须打开一个新的 cmd.exe 才能在那里有新变量！如果你需要更多信息 here 是涵盖它的 SO 主题。:

@echo off
cls
echo %naam%
pause

vbs 清除变量的脚本clearing_variable.vbs:

Dim WshShell, WshEnv
Set WshShell = CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("USER") ' can be either SYSTEM, USER, VOLATILE OR PROCESS
' current value
WScript.Echo "Process: NAAM=" & WshEnv.Item("NAAM")
'Deleting the env variable
WshEnv.Remove("NAAM")
WScript.Echo "Process: NAAM=" & WshEnv.Item("NAAM")
Set WshEnv = Nothing
Set WshShell = Nothing

Answer 2

最明显的方法是运行 vbscript 作为 For /F 命令并将其返回的输出保存为变量：

@Echo Off

:NaamBox
Set "naam="
(Echo WScript.Echo InputBox("Naam:"^))>"%TEMP%\naam.vbs"
For /F Delims^=^ EOL^= %%A In ('CScript //NoLogo "%TEMP%\naam.vbs"')Do Set "naam=%%A"
If Not Defined naam GoTo NaamBox
Del "%TEMP%\naam.vbs"

Echo Uw naam is %naam%
Pause

如果你不喜欢写，运行宁，然后删除文件，你也可以在批处理文件中嵌入你的 VBScript：

<!-- :
@Echo Off
Echo Typ gelieve uw naam in de popup doos en OK te selecteren
For /F Delims^=^ EOL^= %%A In ('CScript //NoLogo "%~f0?.wsf"')Do Set "naam=%%A"
If Defined naam Echo Uw naam is %naam%&Pause
Exit /B
-->
<Job><Script Language="VBScript">
    WScript.Echo InputBox("Naam:")
</Script></Job>

批量使用 VBScript 中的变量

using variables from VBScript in batch

vbscript

batch-file