(VBScript) Example: Http.SetAuthTokenSb method

Demonstrates the SetAuthTokenSb method.

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)

success = 0

set http = CreateObject("Chilkat.Http")

oauth2_access_token = "ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ"

set sbAccessToken = CreateObject("Chilkat.StringBuilder")
success = sbAccessToken.Append(oauth2_access_token)

' Causes the "Authorization: Bearer <access_token>" header to be added to all HTTP requests.
success = http.SetAuthTokenSb(sbAccessToken)

responseText = http.QuickGetStr("https://chilkatsoft.com/helloWorld.txt")
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

' See the HTTP request header that was sent.
outFile.WriteLine(http.LastHeader)

' Output:
' 
' GET /helloWorld.txt HTTP/1.1
' Host: chilkatsoft.com
' Accept: */*
' Accept-Encoding: gzip
' Authorization: Bearer ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ

' Note: Starting in v11.2.0, the information that should be kept secret in the Authorization header
' will be redacted.  Thus, in Chilkat v11.2.0 and later, the LastHeader property will show the following:

' Authorization: Bearer ****

outFile.Close