Set objFso = CreateObject("Scripting.FileSystemObject")
Set colShWindows = CreateObject("shell.application").Windows
For Each w In colShWindows
If objFso.GetFileName(LCase(w.FullName)) = "iexplore.exe" Then
WScript.Echo w.LocationURL
End If
Next