(PowerBuilder) S3 List Buckets using an STS Session Token

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.

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

integer li_rc
oleobject loo_XmlToken
integer li_Success
oleobject loo_Rest
integer li_BTls
integer li_Port
integer li_BAutoReconnect
oleobject loo_AuthAws
oleobject loo_SbResponse
integer li_StatusCode
oleobject loo_Xml

// 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.
loo_XmlToken = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_XmlToken.ConnectToNewObject("Chilkat.Xml")
if li_rc < 0 then
    destroy loo_XmlToken
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_XmlToken.LoadXmlFile("qa_data/tokens/aws_session_token.xml")
if li_Success = 0 then
    Write-Debug loo_XmlToken.LastErrorText
    destroy loo_XmlToken
    return
end if

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")

// Connect to the Amazon AWS REST server.
li_BTls = 1
li_Port = 443
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("s3.amazonaws.com",li_Port,li_BTls,li_BAutoReconnect)

// Provide AWS credentials for the REST call.
loo_AuthAws = create oleobject
// Use "Chilkat_9_5_0.AuthAws" for versions of Chilkat < 10.0.0
li_rc = loo_AuthAws.ConnectToNewObject("Chilkat.AuthAws")

// The purpose of this example is to show how to use the temporary AccessKeyId, SecretAccessKey, and SessionToken.
loo_AuthAws.AccessKey = loo_XmlToken.GetChildContent("GetSessionTokenResult|Credentials|AccessKeyId")
loo_AuthAws.SecretKey = loo_XmlToken.GetChildContent("GetSessionTokenResult|Credentials|SecretAccessKey")
loo_AuthAws.ServiceName = "s3"
li_Success = loo_Rest.SetAuthAws(loo_AuthAws)

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

loo_SbResponse = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbResponse.ConnectToNewObject("Chilkat.StringBuilder")

li_Success = loo_Rest.FullRequestNoBodySb("GET","/",loo_SbResponse)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_XmlToken
    destroy loo_Rest
    destroy loo_AuthAws
    destroy loo_SbResponse
    return
end if

li_StatusCode = loo_Rest.ResponseStatusCode
Write-Debug "Response status code = " + string(li_StatusCode)

loo_Xml = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

loo_Xml.LoadSb(loo_SbResponse,1)
Write-Debug loo_Xml.GetXml()

if li_StatusCode <> 200 then
    Write-Debug "Failed.  See error information in the XML."
    destroy loo_XmlToken
    destroy loo_Rest
    destroy loo_AuthAws
    destroy loo_SbResponse
    destroy loo_Xml
    return
end if



destroy loo_XmlToken
destroy loo_Rest
destroy loo_AuthAws
destroy loo_SbResponse
destroy loo_Xml