HTTP HEAD Request

Simple HTTP HEAD request to download only the HTTP header.

Download Chilkat HTTP ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set http = CreateObject("Chilkat.Http")

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox http.LastErrorText
    WScript.Quit
End If

'  Send the HEAD request and get the response.

Set response = http.GetHead("http://www.chilkatsoft.com/")

If (response Is Nothing ) Then
    MsgBox http.LastErrorText
Else

    '  Show the HTTP response code and header received.
    outFile.WriteLine("HTTP response code: ")
    outFile.WriteLine(response.StatusCode)

    outFile.WriteLine("---- FULL HEADER ----")
    outFile.WriteLine(response.Header)
    outFile.WriteLine("---------------------")

    '  How big will the full response be?  This is a good way to
    '  check the size of a download (if the URL is a .zip)
    outFile.WriteLine("Size of resource = " & response.ContentLength)

End If

outFile.Close