windows - Windows 7 VBScript タイトルによるウィンドウの選択

Question

したがって、次のコードは Windows XP では機能するように見えますが、Windows 7 では機能しません。

Dim objFileSys

Set objFileSys = CreateObject("Scripting.FileSystemObject")

If objShell.AppActivate("Query Express") Then 
Else
    objShell.run chr(34) & "I:\SQL-Queries\QueryExpress\QueryExpress.exe" & chr(34),1,False
End If

基本的に、ウィンドウが既に開いているかどうかを確認します。開いていない場合は、開きます。

かなり単純ですね。さて、このコードは Windows 7 でスクリプト化されたとおりには機能しません。機能するように更新する方法について誰か教えてもらえますか?

ありがとう！