vbscript - VB 脚本输入框查询

Question

我只是想制作一个类似这样的简单输入脚本，其中“FJobName”是我想在 raiseevent 字符串“FJobName”中插入的变量。任何想法，我没有工作？

Dim FJobName, objShell
FJobName=InputBox ("JobName","ACT Create Job")
result=Msgbox(FJobName ,vbYesNo)
If result = vbYes Then
Set objShell = WScript.CreateObject ("WScript.shell")
objShell.run "raiseevent ACTCreateJob_r3 FJobName -host 194.128.255.22 -port 61235"
Else
End if

Answer 1

您需要将 FJobName 与命令字符串连接起来。即你的脚本应该是这样的：

Dim FJobName, objShell
FJobName=InputBox("JobName","ACT Create Job") 
result=Msgbox(FJobName ,vbYesNo) 
If result = vbYes Then 
   Set objShell = WScript.CreateObject ("WScript.shell") 
   objShell.run "raiseevent ACTCreateJob_r3 " & FJobName & " -host 194.128.255.22 -port 61235" 
End if