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
(Classic ASP) 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.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' 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. set xmlToken = Server.CreateObject("Chilkat_9_5_0.Xml") success = xmlToken.LoadXmlFile("qa_data/tokens/aws_session_token.xml") If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( xmlToken.LastErrorText) & "</pre>" Response.End End If set rest = Server.CreateObject("Chilkat_9_5_0.Rest") ' Connect to the Amazon AWS REST server. bTls = 1 port = 443 bAutoReconnect = 1 success = rest.Connect("s3.amazonaws.com",port,bTls,bAutoReconnect) ' Provide AWS credentials for the REST call. set authAws = Server.CreateObject("Chilkat_9_5_0.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) success = rest.AddQueryParam("X-Amz-Security-Token",xmlToken.GetChildContent("GetSessionTokenResult|Credentials|SessionToken")) set sbResponse = Server.CreateObject("Chilkat_9_5_0.StringBuilder") success = rest.FullRequestNoBodySb("GET","/",sbResponse) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If statusCode = rest.ResponseStatusCode Response.Write "<pre>" & Server.HTMLEncode( "Response status code = " & statusCode) & "</pre>" set xml = Server.CreateObject("Chilkat_9_5_0.Xml") success = xml.LoadSb(sbResponse,1) Response.Write "<pre>" & Server.HTMLEncode( xml.GetXml()) & "</pre>" If (statusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( "Failed. See error information in the XML.") & "</pre>" Response.End End If %> </body> </html> |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.