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ã®ãã¦ã³ãã¼ã㯠ãã¡ã ã§ãã This entry was posted by admin on
{{#tags}}- {{label}}
{{/tags}}