[WSH] HTTPで取得する

HTTPで取得する。

MSXML2.XMLHTP.3.0オブジェクトを利用。

'参考: http://d.hatena.ne.jp/necoyama3/20090424/1240592349

Const URL = "http://www.google.co.jp/"

Function getHtml( strUrl )
    Dim oXMLHTTP
    Dim resData

    'オブジェクト
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")

    'データ取得
    on error resume next
    oXMLHTTP.Open "GET", strUrl, False   '接続
    oXMLHTTP.Send                        '送信

    'エラーなし？
    If oXMLHTTP.Status = 200 Then
        '受信データ
        resData = oXMLHTTP.responseText
    Else
        'エラー
        resData = "Error:" & oXMLHTTP.Status
    End If

    getHtml = resData
End Function

WScript.Echo getHtml( URL )