(VBScript) Manually Follow HTTP Redirects

Demonstrates how to manually follow redirects for an HTTP GET.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")

' The FollowRedirects property controls whether redirects
' are automatically followed.  The default behavior is to
' automatically follow redirects.

' Explicitly set FollowRedirects so that redirects are NOT automatically taken:
http.FollowRedirects = 0

' resp is a Chilkat.HttpResponse
Set resp = http.QuickGetObj("http://yandex.ru/")
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

status = resp.StatusCode
outFile.WriteLine("HTTP Response Status: " & status)

' The FinalRedirectUrl property will contain the redirect URL
' If FollowRedirects was equal to 1, then all of the 
' intermediate redirects (if any) would be followed until
' there were no more redirects.  However, because 
' FollowRedirects is not 1, FinalRedirectUrl contains
' the next redirect URL.

loopCount = 0

Do While (status = 302)

    ' IMPORTANT: This example requires Chilkat v9.5.0.49 or greater because
    ' the FinalRedirectUrl in prior versions is only set when redirects
    ' are automatically followed.   Starting in v9.5.0.49, the FinalRedirectUrl is
    ' set to the next redirect URL when a 301/302 response is received, regardless
    ' of the value of the FollowRedirects property.
    outFile.WriteLine("Redirect URL: " & http.FinalRedirectUrl)

    nextUrl = http.FinalRedirectUrl
    ' resp is a Chilkat.HttpResponse
    Set resp = http.QuickGetObj(nextUrl)
    If (http.LastMethodSuccess = 0) Then
        outFile.WriteLine(http.LastErrorText)
        WScript.Quit
    End If

    status = resp.StatusCode
    outFile.WriteLine("HTTP Response Status: " & status)

    ' For safety, prevent infinite loops by
    ' keeping a loopCount and only allows following a max 
    ' of 10 redirects:
    loopCount = loopCount + 1
    If (loopCount > 10) Then

        outFile.WriteLine("Too many redirects.")
        WScript.Quit
    End If

Loop

outFile.Close