B4X

S3 List Buckets using an STS Session Token

See more AWS Security Token Service Examples

This is an example showing how to use an STS session token in an Amazon AWS request. This example will list S3 buckets using a previously obtained session token. B4X

Dim success As Boolean = False

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

'  See Get AWS STS Session Token for sample code to get the session token XML.
Dim xmlToken As ChilkatXml
xmlToken.Initialize
success = xmlToken.LoadXmlFile("qa_data/tokens/aws_session_token.xml")
If success = False Then
    Log(xmlToken.LastErrorText)
    Return
End If


Dim rest As ChilkatRest
rest.Initialize("rest")

'  Connect to the Amazon AWS REST server.
Dim bTls As Boolean = True
Dim port As Int = 443
Dim bAutoReconnect As Boolean = True
success = rest.Connect("s3.amazonaws.com", port, bTls, bAutoReconnect)

'  Provide AWS credentials for the REST call.
Dim authAws As ChilkatAuthAws
authAws.Initialize

'  The purpose of this example is to show how to use the temporary AccessKeyId, SecretAccessKey, and SessionToken.
authAws.AccessKey = xmlToken.GetChildContent("GetSessionTokenResult|Credentials|AccessKeyId")
authAws.SecretKey = xmlToken.GetChildContent("GetSessionTokenResult|Credentials|SecretAccessKey")
authAws.ServiceName = "s3"
success = rest.SetAuthAws(authAws)

rest.AddQueryParam("X-Amz-Security-Token", xmlToken.GetChildContent("GetSessionTokenResult|Credentials|SessionToken"))

Dim sbResponse As ChilkatStringBuilder
sbResponse.Initialize
success = rest.FullRequestNoBodySb("GET", "/", sbResponse)
If success <> True Then
    Log(rest.LastErrorText)
    Return
End If


Dim statusCode As Int = rest.ResponseStatusCode
Log("Response status code = " & statusCode)

Dim xml As ChilkatXml
xml.Initialize
xml.LoadSb(sbResponse, True)
Log(xml.GetXml)

If statusCode <> 200 Then
    Log("Failed.  See error information in the XML.")
    Return
End If