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

7 Comments

  1. joker123 slot terbaru says:

    joker123 slot terbaru

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

  2. mega888 Free credit rm10 says:

    mega888 Free credit rm10

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

  3. scr888 ios says:

    scr888 ios

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

  4. sbobet88899 says:

    sbobet88899

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

  5. wukong Game slot says:

    wukong Game slot

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

  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

  7. Slotsakti.org says:

    Slotsakti.org

    400 The plain HTTP request was sent to HTTPS port

Leave a Reply