VB脚本InputBox查询

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