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 中的脚本那样工作。有人能告诉我如何更新它才能工作吗？

谢谢！