VB -Skript -EingabeBox -Abfrage

Question

Ich versuche nur, ein einfaches Eingabebuchskript so etwas zu erstellen, in dem "fjobname" die Variable ist, die ich in den raisesevent string "fjobname" einfügen möchte. Irgendwelche Ideen, was habe ich nicht gearbeitet?

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

Sie müssen Fjobname mit der Befehlszeichenfolge verkettet. Dh dein Skript sollte so aussehen:

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