IEで開いているURLとタイトルの一覧を取得 

'IEで開いているURLとタイトルの一覧を取得する。
set fso = CreateObject("Scripting.FileSystemObject")
txt = ""
for each br in CreateObject("Shell.Application").Windows
  pname = fso.GetFileName( br.FullName )
  if  LCase( pname ) = "iexplore.exe" then
   if br.LocationURL <> "about:blank" then
    txt = txt & br.Document.Title & vbcrlf
    txt = txt & br.LocationURL & vbcrlf
   end if
  end if
next
wscript.echo txt
ClipBoardSet txt
 
'クリップボードアクセス
'http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/dec04/hey1215.mspx
sub ClipBoardSet( s )
 Set objIE = CreateObject("InternetExplorer.Application")
 objIE.Navigate("about:blank")
 objIE.document.parentwindow.clipboardData.SetData "text", s
 objIE.Quit
 set objIE = Nothing
end sub

ネタ元