Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(VB.NET) S3 List Buckets using an STS Session TokenThis 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.
' 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 New Chilkat.Xml Dim success As Boolean = xmlToken.LoadXmlFile("qa_data/tokens/aws_session_token.xml") If (success = False) Then Debug.WriteLine(xmlToken.LastErrorText) Exit Sub End If Dim rest As New Chilkat.Rest ' Connect to the Amazon AWS REST server. Dim bTls As Boolean = True Dim port As Integer = 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 New Chilkat.AuthAws ' 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 New Chilkat.StringBuilder success = rest.FullRequestNoBodySb("GET","/",sbResponse) If (success <> True) Then Debug.WriteLine(rest.LastErrorText) Exit Sub End If Dim statusCode As Integer = rest.ResponseStatusCode Debug.WriteLine("Response status code = " & statusCode) Dim xml As New Chilkat.Xml xml.LoadSb(sbResponse,True) Debug.WriteLine(xml.GetXml()) If (statusCode <> 200) Then Debug.WriteLine("Failed. See error information in the XML.") Exit Sub End If |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.