IEで表示した結果を返すVBScript

複雑なJavaScriptや証明書やらなんやらがあると、IE様の力を借りないと辛い。

hoge.vbs

Set objArgs=WScript.Arguments.Unnamed
url = objArgs(0)

Set objIE = CreateObject("InternetExplorer.Application")
'objIE.Visible=TRUE
objIE.Visible=FALSE
objIE.Navigate(url)
Do Until objIE.Busy = False
   WScript.sleep(250)
Loop

text = objIE.Document.Body.InnerHtml
Wscript.Echo text

'Set objIE = Nothing
objIE.Quit

実行例(コマンドプロンプトなどから)

cscript hoge.vbs http://www.yahoo.co.jp/

参考

BODY部のHTMLを取得する
http://www.happy2-island.com/vbs/cafe02/capter00707.shtml

WSHでVBScriptを実行する方法
http://www.happy2-island.com/vbs/cafe01/capter00500.shtml

Tips：WSHで名前付き引数と名前なし引数を扱う
http://www.atmarkit.co.jp/fwin2k/win2ktips/509wsharg/wsharg.html