VBScriptを使用したアプリケーションの起動

Question

VBScriptを使用してWindowsシェルからアプリケーションを起動しようとしています。 QtCreatorから実行すると、アプリケーションはエラーなく実行されます。 VBScriptのから実行すると、エラーコードで終了する場合しかし、それはクラッシュ255 ここでスクリプトがあります：

Set objShell = WScript.CreateObject("WScript.Shell") 

rv = objShell.Run("path\to\application.exe", 1 , True) 
If rv <> 0 Then 
    MsgBox "Failed : " & rv 
End If 
WScript.Sleep 120000 
objShell.Run "taskkill /im path\to\application.exe" 

Set objShell = Nothing 

誰かが私が行方不明です何を指摘していただけますか？

Answer 1

私は、エラーを見つけることができました。現在のディレクトリを.exeファイルを含むフォルダに設定しました。これは変更されたスクリプトです：

Option Explicit 
Dim Title,objShell,rv,ProcessPath,ProcessName 
Title = "Launching and killing application using Vbcript" 
Set objShell = CreateObject("WScript.Shell") 
objShell.CurrentDirectory = "path\to\folder\containing\.exe" 
ProcessPath = "path\to\application.exe" 
objShell.Run DblQuote(ProcessPath),1,False 
If rv <> 0 Then 
    MsgBox "Failed : " & rv 
End If 
Set objShell = Nothing 
WScript.Sleep 12000 
ProcessPath = Split(ProcessPath,"\") 
ProcessName = ProcessPath(UBound(ProcessPath)) 
Msgbox "The Process named "& DblQuote(ProcessName) &" is being to be killed now !",_ 
vbExclamation,Title 
Call Kill(ProcessName) 

Sub Kill(ProcessName) 
    Dim Ws,Command,Execution 
    Set Ws = CreateObject("Wscript.Shell") 
    Command = "cmd /c Taskkill /F /IM "& DblQuote(ProcessName) &"" 
    Execution = Ws.Run(Command,0,True) 
    Set Ws = Nothing 
End Sub 

Function DblQuote(Str) 
    DblQuote = Chr(34) & Str & Chr(34) 
End Function 

Answer 2

このVBScriptのために試してみて、私に結果を伝える：

Option Explicit 
Dim Title,objShell,rv,ProcessPath,ProcessName 
Title = "Launching and killing application using Vbcript" 
Set objShell = CreateObject("WScript.Shell") 
ProcessPath = "C:\Windows\system32\Calc.exe" 
rv = objShell.Run(DblQuote(ProcessPath),1,False) 
If rv <> 0 Then 
    MsgBox "Failed : " & rv 
End If 
Set objShell = Nothing 
WScript.Sleep 12000 
ProcessPath = Split(ProcessPath,"\") 
ProcessName = ProcessPath(UBound(ProcessPath)) 
Msgbox "The Process named "& DblQuote(ProcessName) &" is being to be killed now !",_ 
vbExclamation,Title 
Call Kill(ProcessName) 
'**************************************************** 
Sub Kill(ProcessName) 
    Dim Ws,Command,Execution 
    Set Ws = CreateObject("Wscript.Shell") 
    Command = "cmd /c Taskkill /F /IM "& DblQuote(ProcessName) &"" 
    Execution = Ws.Run(Command,0,True) 
    Set Ws = Nothing 
End Sub 
'**************************************************** 
Function DblQuote(Str) 
    DblQuote = Chr(34) & Str & Chr(34) 
End Function 
'****************************************************