vbscriptでhtmlのソース保存

質問

vbscriptにてIEを操作し、指定URLのhtmlソースコードをファイルに保存するスクリプトを作成しています。
ですが、サイトによっては取得に失敗するケースがあり、原因が分かりません。

下記の例では、yahooのトップページは取得できますが、amazonのトップページは
取得できませんでした。
申し訳ありませんが、原因と解決策を教えていただきたいです。
よろしくお願いいたします。

尚、環境はWinXP(SP3) 、IEはver8を使用しています。

'--------------------------------------------'
Option Explicit

Dim objIE
Dim strBody

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

objIE.Navigate "http://www.amazon.com/"
'objIE.Navigate "http://www.yahoo.co.jp/"

Do Until objIE.Busy = False
WScript.sleep(250)
Loop'

strBody = objIE.Document.Body.InnerHtml
msgbox strBody

Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("test.txt", True)
tf.Write strBody
tf.Close

Set objIE = Nothing
'--------------------------------------------'

回答No.1

seastar3 · ベストアンサー

ご提示のコードでamazonサイトを出してみると文字化けのためテキスト書き込みできていないことが分かりました。つまりFileSystemオブジェクトは、UTF-8などの文字コードに対応していません。
したがって、ファイル操作をFileSystemオブジェクト活用からADODB.streamオブジェクト活用流に変更し、以下のコードでうまく保存できるようになりました。

Option Explicit
Dim objIE
Dim strBody
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://www.amazon.com/"
'objIE.Navigate "http://www.yahoo.co.jp/"
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
strBody = objIE.Document.Body.InnerHtml
msgbox strBody

Dim objADO
Set objADO = CreateObject("ADODB.Stream")
objADO.type = 2
objADO.charset = "UTF-8"
objADO.open
objADO.WriteText strBody,1
objADO.SaveToFile "test.txt",2
objADO.Close
Set objADO = Nothing