有没有办法使用用户定义的名称打开IE窗口？打开相同的URL时，已打开的IE窗口将显示在前台

Set objShell = CreateObject("Shell.Application")
Set objWindows = objShell.Windows

url = "http://www.example.com"
windowName = "MyWindow"

' 检查是否已经存在具有相同名称的窗口
For Each objWindow in objWindows
    If InStr(objWindow.FullName, "iexplore.exe") > 0 Then
        If objWindow.LocationURL = url Then
            objWindow.Navigate url
            objWindow.Visible = True
            objWindow.Focus
            WScript.Quit
        End If
    End If
Next

' 如果没有找到具有相同名称和URL的窗口，则打开新窗口
Set objIE = objShell.Windows.Item()
objIE.Navigate url
objIE.Visible = True
objIE.Document.Title = windowName