«
»

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 2008/12/31 at 18:26 under Windows, WSH. Tagged , , . You can leave a response, or trackback from your own site. Follow any responses to this entry through the RSS 2.0 feed.

7 Comments

  1. joker123 slot terbaru says:

    joker123 slot terbaru

    【WSH】起動中のIEを取得し、開いているURLを表示する | Dragon-Ark

    2021/01/16, 00:20

  2. mega888 Free credit rm10 says:

    mega888 Free credit rm10

    【WSH】起動中のIEを取得し、開いているURLを表示する | Dragon-Ark

    2021/01/16, 01:03

  3. scr888 ios says:

    scr888 ios

    【WSH】起動中のIEを取得し、開いているURLを表示する | Dragon-Ark

    2021/01/16, 02:03

  4. sbobet88899 says:

    sbobet88899

    【WSH】起動中のIEを取得し、開いているURLを表示する | Dragon-Ark

    2021/01/16, 02:16

  5. wukong Game slot says:

    wukong Game slot

    【WSH】起動中のIEを取得し、開いているURLを表示する | Dragon-Ark

    2021/01/16, 04:35

  6. online casino no deposit bonus no download instant play says:

    online casino no deposit bonus no download instant play

    【WSH】起動中のIEを取得し、開いているURLを表示する | Dragon-Ark

    2021/01/16, 08:09

  7. Slotsakti.org says:

    Slotsakti.org

    400 The plain HTTP request was sent to HTTPS port

    2021/01/22, 17:37

Leave a Reply