VBScript

HTTP Basic Authentication Test

Demonstrates how to do HTTP basic authentication using Chilkat. VBScript

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.

set http = CreateObject("Chilkat.Http")

' To use HTTP Basic authentication:
http.Login = "myLogin"
http.Password = "myPassword"
http.BasicAuth = 1

' Run the test using this URL with the credentials above.  
' (Works while httpbin.org keeps the test endpoint available.)
jsonResponse = http.QuickGetStr("https://httpbin.org/basic-auth/myLogin/myPassword")
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Response status code: " & http.LastStatus)

outFile.WriteLine(jsonResponse)

' Output:

' Response status code: 200
' {
'   "authenticated": true, 
'   "user": "myLogin"
' }

outFile.Close