■

編集、ぽぴー、ぱぴぷぺ、してみた。

'-------------------------------dl.vbs
Option Explicit
On Error Resume Next

Dim strUrl      ' 表示するページ
Dim objIE       ' IE オブジェクト

strUrl = "http://www.hatena.ne.jp/"
Set objIE = WScript.CreateObject("InternetExplorer.Application")
If Err.Number = 0 Then
    objIE.Navigate strUrl

    ' ページが取り込まれるまで待つ
    Do While objIE.busy
        WScript.Sleep(100)
    Loop
    Do While objIE.Document.readyState <> "complete"
        WScript.Sleep(100)
    Loop

'---------------

Dim objFSO      ' FileSystemObject
Dim objFile     ' ファイル書き込み用

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
    Set objFile = objFSO.CreateTextFile("test.txt", True)
    If Err.Number = 0 Then
        objFile.Write(objIE.Document.Body.InnerText)
        objFile.Close
        WScript.Echo "保存しました。"
    Else
        WScript.Echo "ファイルオープンエラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFile = Nothing
Set objFSO = Nothing

'---------------

    ' テキスト形式で出力
'    WScript.Echo objIE.Document.Body.InnerText

    ' ＨＴＭＬ形式で出力
'    WScript.Echo objIE.Document.Body.InnerHtml
Else
    WScript.Echo "エラー：" & Err.Description
End If
Set objIE = Nothing