(VBScript) Generate S3 Signed URL
Demonstrates how to generate a pre-signed S3 URL.
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
set http = CreateObject("Chilkat_9_5_0.Http")
' Insert your access key here:
http.AwsAccessKey = "ABQXXABC83ABCDEFVQXX"
' Insert your secret key here:
http.AwsSecretKey = "XXXXYYYYabcdABCD12345678xxxxyyyyzzzz"
bucketName = "testbucket"
path = "starfish.jpg"
set expireTime = CreateObject("Chilkat_9_5_0.CkDateTime")
success = expireTime.SetFromCurrentSystemTime()
bLocalTime = 0
' Set the expiration time to 1 hour from the current time.
success = expireTime.SetFromUnixTime(bLocalTime,expireTime.GetAsUnixTime(bLocalTime) + 3600)
signedUrl = http.S3_GenerateUrl(bucketName,path,expireTime)
If (http.LastMethodSuccess <> 1) Then
outFile.WriteLine(http.LastErrorText)
Else
outFile.WriteLine(signedUrl)
End If
outFile.Close
|