vbs Grab running InternetExplorer

Word/Exel/PPT funktioniert nicht beim InternetExplorer.Application Object

Dies ist das Beispiel für Exel :

Dim objXL, strMessage

On Error Resume Next

' Try to grab a running instance of Excel:
Set objXL = GetObject(, "Excel.Application")

' What have we found?
If Not TypeName(objXL) = "Empty" Then
strMessage = "Excel Running."
Else
strMessage = "Excel Not Running."
End If

' Feedback to user...
MsgBox strMessage, vbInformation, "Excel Status"

' Make it show so we can kill it
if strMessage = "Excel Running." then objXL.Visible = true

Kennt jemand eine Methode einen bereits geöffneten Iexplorer zu "grabben".

Das beispiel funktioniert nämlich nicht beim IE.
mit getObject("","InternetExplorer.Application")
Erkennt er zwar das der IE gestartet ist, öffnet aber eine neue Instans statt die existierende zu
verwenden.