GetLifecyclePolicy VBScript Example
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
set rest = CreateObject("Chilkat_9_5_0.Rest")
set authAws = CreateObject("Chilkat_9_5_0.AuthAws")
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"
' Don't forget to change the region to your particular region. (Also make the same change in the call to Connect below.)
authAws.Region = "us-west-2"
authAws.ServiceName = "dlm"
' SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
success = rest.SetAuthAws(authAws)
' URL: https://dlm.us-west-2.amazonaws.com/
' Use the same region as specified above.
success = rest.Connect("dlm.us-west-2.amazonaws.com",443,1,1)
If (success <> 1) Then
outFile.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
outFile.WriteLine(rest.LastErrorText)
WScript.Quit
End If
success = rest.AddHeader("Content-Type","application/x-amz-json-1.1")
success = rest.AddHeader("X-Amz-Target","GetLifecyclePolicy")
set sbResponseBody = CreateObject("Chilkat_9_5_0.StringBuilder")
success = rest.FullRequestNoBodySb("GET","/policies/{policyId}/",sbResponseBody)
If (success <> 1) Then
outFile.WriteLine(rest.LastErrorText)
WScript.Quit
End If
respStatusCode = rest.ResponseStatusCode
outFile.WriteLine("response status code = " & respStatusCode)
If (respStatusCode <> 200) Then
outFile.WriteLine("Response Header:")
outFile.WriteLine(rest.ResponseHeader)
outFile.WriteLine("Response Body:")
outFile.WriteLine(sbResponseBody.GetAsString())
WScript.Quit
End If
set jResp = CreateObject("Chilkat_9_5_0.JsonObject")
success = jResp.LoadSb(sbResponseBody)
' The following code parses the JSON response.
' A sample JSON response is shown below the sample code.
' Use this online tool to generate parsing code from sample JSON:
' Generate Parsing Code from JSON
DateCreated = jResp.IntOf("Policy.DateCreated")
DateModified = jResp.IntOf("Policy.DateModified")
Description = jResp.StringOf("Policy.Description")
ExecutionRoleArn = jResp.StringOf("Policy.ExecutionRoleArn")
PolicyArn = jResp.StringOf("Policy.PolicyArn")
DescriptionRegex = jResp.StringOf("Policy.PolicyDetails.EventSource.Parameters.DescriptionRegex")
EventType = jResp.StringOf("Policy.PolicyDetails.EventSource.Parameters.EventType")
v_Type = jResp.StringOf("Policy.PolicyDetails.EventSource.Type")
ExcludeBootVolume = jResp.IntOf("Policy.PolicyDetails.Parameters.ExcludeBootVolume")
NoReboot = jResp.IntOf("Policy.PolicyDetails.Parameters.NoReboot")
PolicyType = jResp.StringOf("Policy.PolicyDetails.PolicyType")
PolicyId = jResp.StringOf("Policy.PolicyId")
State = jResp.StringOf("Policy.State")
StatusMessage = jResp.StringOf("Policy.StatusMessage")
v_String = jResp.StringOf("Policy.Tags.string")
i = 0
count_i = jResp.SizeOfArray("Policy.PolicyDetails.Actions")
Do While i < count_i
jResp.I = i
Name = jResp.StringOf("Policy.PolicyDetails.Actions[i].Name")
j = 0
count_j = jResp.SizeOfArray("Policy.PolicyDetails.Actions[i].CrossRegionCopy")
Do While j < count_j
jResp.J = j
CmkArn = jResp.StringOf("Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].EncryptionConfiguration.CmkArn")
Encrypted = jResp.IntOf("Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].EncryptionConfiguration.Encrypted")
Interval = jResp.IntOf("Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].RetainRule.Interval")
IntervalUnit = jResp.StringOf("Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].RetainRule.IntervalUnit")
Target = jResp.StringOf("Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].Target")
j = j + 1
Loop
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Policy.PolicyDetails.EventSource.Parameters.SnapshotOwner")
Do While i < count_i
jResp.I = i
strVal = jResp.StringOf("Policy.PolicyDetails.EventSource.Parameters.SnapshotOwner[i]")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Policy.PolicyDetails.ResourceLocations")
Do While i < count_i
jResp.I = i
strVal = jResp.StringOf("Policy.PolicyDetails.ResourceLocations[i]")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Policy.PolicyDetails.ResourceTypes")
Do While i < count_i
jResp.I = i
strVal = jResp.StringOf("Policy.PolicyDetails.ResourceTypes[i]")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Policy.PolicyDetails.Schedules")
Do While i < count_i
jResp.I = i
CopyTags = jResp.IntOf("Policy.PolicyDetails.Schedules[i].CopyTags")
CronExpression = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CreateRule.CronExpression")
CreateRuleInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].CreateRule.Interval")
CreateRuleIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CreateRule.IntervalUnit")
Location = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CreateRule.Location")
Count = jResp.IntOf("Policy.PolicyDetails.Schedules[i].DeprecateRule.Count")
DeprecateRuleInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].DeprecateRule.Interval")
DeprecateRuleIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].DeprecateRule.IntervalUnit")
FastRestoreRuleCount = jResp.IntOf("Policy.PolicyDetails.Schedules[i].FastRestoreRule.Count")
FastRestoreRuleInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].FastRestoreRule.Interval")
FastRestoreRuleIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].FastRestoreRule.IntervalUnit")
Name = jResp.StringOf("Policy.PolicyDetails.Schedules[i].Name")
RetainRuleCount = jResp.IntOf("Policy.PolicyDetails.Schedules[i].RetainRule.Count")
RetainRuleInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].RetainRule.Interval")
RetainRuleIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].RetainRule.IntervalUnit")
j = 0
count_j = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].CreateRule.Times")
Do While j < count_j
jResp.J = j
strVal = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CreateRule.Times[j]")
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules")
Do While j < count_j
jResp.J = j
CmkArn = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].CmkArn")
CopyTags = jResp.IntOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].CopyTags")
DeprecateRuleInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].DeprecateRule.Interval")
DeprecateRuleIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].DeprecateRule.IntervalUnit")
Encrypted = jResp.IntOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].Encrypted")
RetainRuleInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].RetainRule.Interval")
RetainRuleIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].RetainRule.IntervalUnit")
Target = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].Target")
TargetRegion = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].TargetRegion")
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].FastRestoreRule.AvailabilityZones")
Do While j < count_j
jResp.J = j
strVal = jResp.StringOf("Policy.PolicyDetails.Schedules[i].FastRestoreRule.AvailabilityZones[j]")
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].ShareRules")
Do While j < count_j
jResp.J = j
UnshareInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].ShareRules[j].UnshareInterval")
UnshareIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].ShareRules[j].UnshareIntervalUnit")
k = 0
count_k = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].ShareRules[j].TargetAccounts")
Do While k < count_k
jResp.K = k
strVal = jResp.StringOf("Policy.PolicyDetails.Schedules[i].ShareRules[j].TargetAccounts[k]")
k = k + 1
Loop
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].TagsToAdd")
Do While j < count_j
jResp.J = j
Key = jResp.StringOf("Policy.PolicyDetails.Schedules[i].TagsToAdd[j].Key")
Value = jResp.StringOf("Policy.PolicyDetails.Schedules[i].TagsToAdd[j].Value")
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].VariableTags")
Do While j < count_j
jResp.J = j
Key = jResp.StringOf("Policy.PolicyDetails.Schedules[i].VariableTags[j].Key")
Value = jResp.StringOf("Policy.PolicyDetails.Schedules[i].VariableTags[j].Value")
j = j + 1
Loop
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Policy.PolicyDetails.TargetTags")
Do While i < count_i
jResp.I = i
Key = jResp.StringOf("Policy.PolicyDetails.TargetTags[i].Key")
Value = jResp.StringOf("Policy.PolicyDetails.TargetTags[i].Value")
i = i + 1
Loop
' A sample JSON response body parsed by the above code:
' {
' "Policy": {
' "DateCreated": number,
' "DateModified": number,
' "Description": "string",
' "ExecutionRoleArn": "string",
' "PolicyArn": "string",
' "PolicyDetails": {
' "Actions": [
' {
' "CrossRegionCopy": [
' {
' "EncryptionConfiguration": {
' "CmkArn": "string",
' "Encrypted": boolean
' },
' "RetainRule": {
' "Interval": number,
' "IntervalUnit": "string"
' },
' "Target": "string"
' }
' ],
' "Name": "string"
' }
' ],
' "EventSource": {
' "Parameters": {
' "DescriptionRegex": "string",
' "EventType": "string",
' "SnapshotOwner": [
' "string"
' ]
' },
' "Type": "string"
' },
' "Parameters": {
' "ExcludeBootVolume": boolean,
' "NoReboot": boolean
' },
' "PolicyType": "string",
' "ResourceLocations": [
' "string"
' ],
' "ResourceTypes": [
' "string"
' ],
' "Schedules": [
' {
' "CopyTags": boolean,
' "CreateRule": {
' "CronExpression": "string",
' "Interval": number,
' "IntervalUnit": "string",
' "Location": "string",
' "Times": [
' "string"
' ]
' },
' "CrossRegionCopyRules": [
' {
' "CmkArn": "string",
' "CopyTags": boolean,
' "DeprecateRule": {
' "Interval": number,
' "IntervalUnit": "string"
' },
' "Encrypted": boolean,
' "RetainRule": {
' "Interval": number,
' "IntervalUnit": "string"
' },
' "Target": "string",
' "TargetRegion": "string"
' }
' ],
' "DeprecateRule": {
' "Count": number,
' "Interval": number,
' "IntervalUnit": "string"
' },
' "FastRestoreRule": {
' "AvailabilityZones": [
' "string"
' ],
' "Count": number,
' "Interval": number,
' "IntervalUnit": "string"
' },
' "Name": "string",
' "RetainRule": {
' "Count": number,
' "Interval": number,
' "IntervalUnit": "string"
' },
' "ShareRules": [
' {
' "TargetAccounts": [
' "string"
' ],
' "UnshareInterval": number,
' "UnshareIntervalUnit": "string"
' }
' ],
' "TagsToAdd": [
' {
' "Key": "string",
' "Value": "string"
' }
' ],
' "VariableTags": [
' {
' "Key": "string",
' "Value": "string"
' }
' ]
' }
' ],
' "TargetTags": [
' {
' "Key": "string",
' "Value": "string"
' }
' ]
' },
' "PolicyId": "string",
' "State": "string",
' "StatusMessage": "string",
' "Tags": {
' "string": "string"
' }
' }
' }
outFile.Close
