VBS インターネットエクスプローラ

IEを使ったVBSに挑戦中。毎日の作業の効率アップにならないかと試み中。
こんな感じでテキストを取り出すことはできるようになった。

Dim objIE
set objIE = Wscript.CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://sportsnavi.yahoo.co.jp/baseball/mlb/players/ichiro/index.html"

Do While objIE.Busy
WScript.Sleep 100
Loop

MsgBox objIE.Document.body.innertext
set objIE = nothing