[表示中の URL を取得する]

現在表示されている InternetExplorer から、表示中の URL を取得します。
InternetExplorer を起動してから実行してください。

【ソースコード】

[tips0160.vbs]
Option Explicit
On Error Resume Next

Dim objShell    ' Shell オブジェクト
Dim objIE       ' IE オブジェクト

Set objShell = WScript.CreateObject("Shell.Application")
For Each objIE In objShell.Windows()
    If InStr(LCase(objIE.FullName), "iexplore.exe") Then
        WScript.Echo objIE.LocationURL
    End If
Next
Set objShell = Nothing

【実行結果】

C:\> cscript //NoLogo tips0160.vbs
http://www.google.com/
file:///C:/Temp/Test.html
about:blank