If WScript.Arguments.Count <> 1 Then
Wscript.Echo "Wrong number of arguments!"
Wscript.Quit
End if
Dim program, params, objShell
program = """java.exe"""
params = """-jar"" ""C:\Program Files\jEdit 4.3pre9\jedit.jar"" """ & WScript.Arguments.Item(0) & """ ""-reuseview"""
Wscript.Echo program & " " & params
set objShell = CreateObject("Shell.Application")
objShell.ShellExecute program, params, "", "open", 0
set objShell = nothing