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のダウンロードは こちら です。