VBScript

Example: Http.KeepResponseBody property

Demonstrates the KeepResponseBody property. 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)

success = 0

set http = CreateObject("Chilkat.Http")

http.AwsAccessKey = "****"
http.AwsSecretKey = "****"

http.KeepResponseBody = 1

' Here we have a Chilkat method that sends a DELETE request and returns 1/0 for success/failure.
' If it fails we'll want to get the response status code and the response body.
' The response body will be available in the LastResponseBody property 
' because we set the KeepResponseBody property to 1.
success = http.S3_DeleteBucket("example")

If (success = 0) Then
    outFile.WriteLine("response status code = " & http.LastStatus)
    outFile.WriteLine(http.LastResponseBody)
Else
    outFile.WriteLine("Success: Bucket deleted.")
End If

' Running the code as-is with the invalid data will return a response body
' that shows the error.

' response status code = 403
' <?xml version="1.0" encoding="UTF-8"?>
' <Error>
'   <Code>InvalidAccessKeyId</Code>
'   <Message>The AWS Access Key Id you provided does not exist in our records.</Message>
'   <AWSAccessKeyId>****</AWSAccessKeyId>
'   <RequestId>Y1REHYF8B7M3E771</RequestId>
'   <HostId>i3nf+VEHKqJ+roMNTFcQvWAbXre/wl5icQxuAN1Qsscm9iI/y8IO4z3QNxUefhcCE7hgrS8dNn9OBvKCeB3WccGLe318A4DFUQDPb11WmIg=</HostId>
' </Error>

outFile.Close