Option Explicit
Dim OBJ_FSO
Dim OBJ_Browser
Dim STR_ProgramName
Set OBJ_FSO = CreateObject("Scripting.FileSystemObject")
For Each OBJ_Browser In CreateObject("Shell.Application").Windows
STR_ProgramName = OBJ_FSO.GetFileName(OBJ_Browser.FullName)
If LCase(STR_ProgramName) = "iexplore.exe" Then
WScript.Echo OBJ_Browser.LocationURL
End If
Next
Scriptのダウンロードは こちら です。


