2017-05-27 7 views
1

このコードは一部のコンピューターで動作しますが、他のコンピューターでは動作しません。VBScriptに問題がある

Set WshShell = CreateObject("WScript.Shell") 
Set service = GetObject("winmgmts:") 
i=0 
Do Until i=3 
    bIsRunning = False 
    i=i 
    For Each Process In service.InstancesOf.("Win32_Process") 
     If Process.Name = "chrome.exe" Then 
      bIsRunning = True 
     End If 
    Next 
    If Not bIsRunning Then 
     WshShell.Run Chr(34) & "C:\dir\dir\chrome.exe" & Chr(34), 1 
    End If 
    WScript.Sleep 10000 
Loop 

Chrome.exeは一例に過ぎません。私は問題の原因を知ることはできませんが、各コンピュータは正しい場所に指定されたファイルを持っており、一部ではそれを実行できません。私は、ファイルが始まらないときにエラーがないことを言及しなかった。

+1

あなたのコードの望ましい動作と実際の動作はかなり曖昧です。プロセスがまだ実行されていないことを確認しましたか?どうやって? –

答えて

0

私はそれを考え出しませんでした。私はC#でプロセスを書き換え、コマンドでタイマーを使用しました。

Proccess.createnowindow=true;