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
は一例に過ぎません。私は問題の原因を知ることはできませんが、各コンピュータは正しい場所に指定されたファイルを持っており、一部ではそれを実行できません。私は、ファイルが始まらないときにエラーがないことを言及しなかった。
あなたのコードの望ましい動作と実際の動作はかなり曖昧です。プロセスがまだ実行されていないことを確認しましたか?どうやって? –