DescribeSnapshots 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 = "fsx"
' SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
success = rest.SetAuthAws(authAws)
' URL: https://fsx.us-west-2.amazonaws.com/
' Use the same region as specified above.
success = rest.Connect("fsx.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
' The following code creates the JSON request body.
' The JSON created by this code is shown below.
' Use this online tool to generate code from sample JSON:
' Generate Code to Create JSON
set json = CreateObject("Chilkat_9_5_0.JsonObject")
success = json.UpdateString("Filters[0].Name","string")
success = json.UpdateString("Filters[0].Values[0]","string")
success = json.UpdateInt("MaxResults",123)
success = json.UpdateString("NextToken","string")
success = json.UpdateString("SnapshotIds[0]","string")
' The JSON request body created by the above code:
' {
' "Filters": [
' {
' "Name": "string",
' "Values": [
' "string"
' ]
' }
' ],
' "MaxResults": number,
' "NextToken": "string",
' "SnapshotIds": [
' "string"
' ]
' }
success = rest.AddHeader("Content-Type","application/x-amz-json-1.1")
success = rest.AddHeader("X-Amz-Target","AWSSimbaAPIService_v20180301.DescribeSnapshots")
set sbRequestBody = CreateObject("Chilkat_9_5_0.StringBuilder")
success = json.EmitSb(sbRequestBody)
set sbResponseBody = CreateObject("Chilkat_9_5_0.StringBuilder")
success = rest.FullRequestSb("POST","/",sbRequestBody,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
NextToken = jResp.StringOf("NextToken")
i = 0
count_i = jResp.SizeOfArray("Snapshots")
Do While i < count_i
jResp.I = i
CreationTime = jResp.IntOf("Snapshots[i].CreationTime")
Lifecycle = jResp.StringOf("Snapshots[i].Lifecycle")
Message = jResp.StringOf("Snapshots[i].LifecycleTransitionReason.Message")
Name = jResp.StringOf("Snapshots[i].Name")
ResourceARN = jResp.StringOf("Snapshots[i].ResourceARN")
SnapshotId = jResp.StringOf("Snapshots[i].SnapshotId")
VolumeId = jResp.StringOf("Snapshots[i].VolumeId")
j = 0
count_j = jResp.SizeOfArray("Snapshots[i].AdministrativeActions")
Do While j < count_j
jResp.J = j
AdministrativeActionType = jResp.StringOf("Snapshots[i].AdministrativeActions[j].AdministrativeActionType")
FailureDetailsMessage = jResp.StringOf("Snapshots[i].AdministrativeActions[j].FailureDetails.Message")
ProgressPercent = jResp.IntOf("Snapshots[i].AdministrativeActions[j].ProgressPercent")
RequestTime = jResp.IntOf("Snapshots[i].AdministrativeActions[j].RequestTime")
Status = jResp.StringOf("Snapshots[i].AdministrativeActions[j].Status")
TargetFileSystemValuesCreationTime = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.CreationTime")
DNSName = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.DNSName")
FailureDetailsMessage = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.FailureDetails.Message")
FileSystemId = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.FileSystemId")
FileSystemType = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.FileSystemType")
FileSystemTypeVersion = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.FileSystemTypeVersion")
KmsKeyId = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.KmsKeyId")
TargetFileSystemValuesLifecycle = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.Lifecycle")
AutomaticBackupRetentionDays = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.AutomaticBackupRetentionDays")
CopyTagsToBackups = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.CopyTagsToBackups")
DailyAutomaticBackupStartTime = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DailyAutomaticBackupStartTime")
DataCompressionType = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataCompressionType")
AutoImportPolicy = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.AutoImportPolicy")
ExportPath = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.ExportPath")
FailureDetailsMessage = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.FailureDetails.Message")
ImportedFileChunkSize = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.ImportedFileChunkSize")
ImportPath = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.ImportPath")
DataRepositoryConfigurationLifecycle = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.Lifecycle")
DeploymentType = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DeploymentType")
DriveCacheType = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DriveCacheType")
Destination = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.LogConfiguration.Destination")
Level = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.LogConfiguration.Level")
MountName = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.MountName")
PerUnitStorageThroughput = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.PerUnitStorageThroughput")
WeeklyMaintenanceStartTime = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.WeeklyMaintenanceStartTime")
OntapConfigurationAutomaticBackupRetentionDays = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.AutomaticBackupRetentionDays")
OntapConfigurationDailyAutomaticBackupStartTime = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.DailyAutomaticBackupStartTime")
OntapConfigurationDeploymentType = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.DeploymentType")
Iops = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.DiskIopsConfiguration.Iops")
Mode = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.DiskIopsConfiguration.Mode")
EndpointIpAddressRange = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.EndpointIpAddressRange")
InterclusterDNSName = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.Endpoints.Intercluster.DNSName")
ManagementDNSName = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.Endpoints.Management.DNSName")
PreferredSubnetId = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.PreferredSubnetId")
ThroughputCapacity = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.ThroughputCapacity")
OntapConfigurationWeeklyMaintenanceStartTime = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.WeeklyMaintenanceStartTime")
OpenZFSConfigurationAutomaticBackupRetentionDays = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.AutomaticBackupRetentionDays")
OpenZFSConfigurationCopyTagsToBackups = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.CopyTagsToBackups")
CopyTagsToVolumes = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.CopyTagsToVolumes")
OpenZFSConfigurationDailyAutomaticBackupStartTime = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.DailyAutomaticBackupStartTime")
OpenZFSConfigurationDeploymentType = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.DeploymentType")
DiskIopsConfigurationIops = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.DiskIopsConfiguration.Iops")
DiskIopsConfigurationMode = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.DiskIopsConfiguration.Mode")
RootVolumeId = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.RootVolumeId")
OpenZFSConfigurationThroughputCapacity = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.ThroughputCapacity")
OpenZFSConfigurationWeeklyMaintenanceStartTime = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.WeeklyMaintenanceStartTime")
OwnerId = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OwnerId")
TargetFileSystemValuesResourceARN = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.ResourceARN")
StorageCapacity = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.StorageCapacity")
StorageType = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.StorageType")
VpcId = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.VpcId")
ActiveDirectoryId = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.ActiveDirectoryId")
AuditLogDestination = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.AuditLogConfiguration.AuditLogDestination")
FileAccessAuditLogLevel = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.AuditLogConfiguration.FileAccessAuditLogLevel")
FileShareAccessAuditLogLevel = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.AuditLogConfiguration.FileShareAccessAuditLogLevel")
WindowsConfigurationAutomaticBackupRetentionDays = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.AutomaticBackupRetentionDays")
WindowsConfigurationCopyTagsToBackups = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.CopyTagsToBackups")
WindowsConfigurationDailyAutomaticBackupStartTime = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.DailyAutomaticBackupStartTime")
WindowsConfigurationDeploymentType = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.DeploymentType")
PreferredFileServerIp = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.PreferredFileServerIp")
WindowsConfigurationPreferredSubnetId = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.PreferredSubnetId")
RemoteAdministrationEndpoint = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.RemoteAdministrationEndpoint")
DomainName = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DomainName")
FileSystemAdministratorsGroup = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.FileSystemAdministratorsGroup")
OrganizationalUnitDistinguishedName = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.OrganizationalUnitDistinguishedName")
UserName = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.UserName")
WindowsConfigurationThroughputCapacity = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.ThroughputCapacity")
WindowsConfigurationWeeklyMaintenanceStartTime = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.WeeklyMaintenanceStartTime")
TargetSnapshotValues = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetSnapshotValues")
TargetVolumeValuesCreationTime = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.CreationTime")
TargetVolumeValuesFileSystemId = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.FileSystemId")
TargetVolumeValuesLifecycle = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.Lifecycle")
LifecycleTransitionReasonMessage = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.LifecycleTransitionReason.Message")
TargetVolumeValuesName = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.Name")
FlexCacheEndpointType = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.FlexCacheEndpointType")
JunctionPath = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.JunctionPath")
OntapVolumeType = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.OntapVolumeType")
SecurityStyle = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.SecurityStyle")
SizeInMegabytes = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.SizeInMegabytes")
StorageEfficiencyEnabled = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.StorageEfficiencyEnabled")
StorageVirtualMachineId = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.StorageVirtualMachineId")
StorageVirtualMachineRoot = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.StorageVirtualMachineRoot")
CoolingPeriod = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.TieringPolicy.CoolingPeriod")
TieringPolicyName = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.TieringPolicy.Name")
UUID = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.UUID")
CopyTagsToSnapshots = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.CopyTagsToSnapshots")
OpenZFSConfigurationDataCompressionType = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.DataCompressionType")
CopyStrategy = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.OriginSnapshot.CopyStrategy")
SnapshotARN = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.OriginSnapshot.SnapshotARN")
ParentVolumeId = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.ParentVolumeId")
ReadOnly = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.ReadOnly")
RecordSizeKiB = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.RecordSizeKiB")
StorageCapacityQuotaGiB = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.StorageCapacityQuotaGiB")
StorageCapacityReservationGiB = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.StorageCapacityReservationGiB")
VolumePath = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.VolumePath")
TargetVolumeValuesResourceARN = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.ResourceARN")
TargetVolumeValuesVolumeId = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.VolumeId")
VolumeType = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.VolumeType")
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.AdministrativeActions")
Do While k < count_k
jResp.K = k
strVal = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.AdministrativeActions[k]")
k = k + 1
Loop
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.NetworkInterfaceIds")
Do While k < count_k
jResp.K = k
strVal = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.NetworkInterfaceIds[k]")
k = k + 1
Loop
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.Endpoints.Intercluster.IpAddresses")
Do While k < count_k
jResp.K = k
strVal = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.Endpoints.Intercluster.IpAddresses[k]")
k = k + 1
Loop
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.Endpoints.Management.IpAddresses")
Do While k < count_k
jResp.K = k
strVal = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.Endpoints.Management.IpAddresses[k]")
k = k + 1
Loop
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.RouteTableIds")
Do While k < count_k
jResp.K = k
strVal = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.RouteTableIds[k]")
k = k + 1
Loop
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.SubnetIds")
Do While k < count_k
jResp.K = k
strVal = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.SubnetIds[k]")
k = k + 1
Loop
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.Tags")
Do While k < count_k
jResp.K = k
Key = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.Tags[k].Key")
Value = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.Tags[k].Value")
k = k + 1
Loop
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.Aliases")
Do While k < count_k
jResp.K = k
Lifecycle = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.Aliases[k].Lifecycle")
Name = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.Aliases[k].Name")
k = k + 1
Loop
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.MaintenanceOperationsInProgress")
Do While k < count_k
jResp.K = k
strVal = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.MaintenanceOperationsInProgress[k]")
k = k + 1
Loop
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps")
Do While k < count_k
jResp.K = k
strVal = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps[k]")
k = k + 1
Loop
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.AdministrativeActions")
Do While k < count_k
jResp.K = k
strVal = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.AdministrativeActions[k]")
k = k + 1
Loop
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.NfsExports")
Do While k < count_k
jResp.K = k
' json1 is a Chilkat_9_5_0.JsonObject
Set json1 = jResp.ObjectOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.NfsExports[k]")
i1 = 0
count_i1 = json1.SizeOfArray("ClientConfigurations")
Do While i1 < count_i1
json1.I = i1
Clients = json1.StringOf("ClientConfigurations[i].Clients")
j1 = 0
count_j1 = json1.SizeOfArray("ClientConfigurations[i].Options")
Do While j1 < count_j1
json1.J = j1
strVal = json1.StringOf("ClientConfigurations[i].Options[j]")
j1 = j1 + 1
Loop
i1 = i1 + 1
Loop
k = k + 1
Loop
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas")
Do While k < count_k
jResp.K = k
Id = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[k].Id")
StorageCapacityQuotaGiB = jResp.IntOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[k].StorageCapacityQuotaGiB")
v_Type = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[k].Type")
k = k + 1
Loop
k = 0
count_k = jResp.SizeOfArray("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.Tags")
Do While k < count_k
jResp.K = k
Key = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.Tags[k].Key")
Value = jResp.StringOf("Snapshots[i].AdministrativeActions[j].TargetVolumeValues.Tags[k].Value")
k = k + 1
Loop
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Snapshots[i].Tags")
Do While j < count_j
jResp.J = j
Key = jResp.StringOf("Snapshots[i].Tags[j].Key")
Value = jResp.StringOf("Snapshots[i].Tags[j].Value")
j = j + 1
Loop
i = i + 1
Loop
' A sample JSON response body parsed by the above code:
' {
' "NextToken": "string",
' "Snapshots": [
' {
' "AdministrativeActions": [
' {
' "AdministrativeActionType": "string",
' "FailureDetails": {
' "Message": "string"
' },
' "ProgressPercent": number,
' "RequestTime": number,
' "Status": "string",
' "TargetFileSystemValues": {
' "AdministrativeActions": [
' "AdministrativeAction"
' ],
' "CreationTime": number,
' "DNSName": "string",
' "FailureDetails": {
' "Message": "string"
' },
' "FileSystemId": "string",
' "FileSystemType": "string",
' "FileSystemTypeVersion": "string",
' "KmsKeyId": "string",
' "Lifecycle": "string",
' "LustreConfiguration": {
' "AutomaticBackupRetentionDays": number,
' "CopyTagsToBackups": boolean,
' "DailyAutomaticBackupStartTime": "string",
' "DataCompressionType": "string",
' "DataRepositoryConfiguration": {
' "AutoImportPolicy": "string",
' "ExportPath": "string",
' "FailureDetails": {
' "Message": "string"
' },
' "ImportedFileChunkSize": number,
' "ImportPath": "string",
' "Lifecycle": "string"
' },
' "DeploymentType": "string",
' "DriveCacheType": "string",
' "LogConfiguration": {
' "Destination": "string",
' "Level": "string"
' },
' "MountName": "string",
' "PerUnitStorageThroughput": number,
' "WeeklyMaintenanceStartTime": "string"
' },
' "NetworkInterfaceIds": [
' "string"
' ],
' "OntapConfiguration": {
' "AutomaticBackupRetentionDays": number,
' "DailyAutomaticBackupStartTime": "string",
' "DeploymentType": "string",
' "DiskIopsConfiguration": {
' "Iops": number,
' "Mode": "string"
' },
' "EndpointIpAddressRange": "string",
' "Endpoints": {
' "Intercluster": {
' "DNSName": "string",
' "IpAddresses": [
' "string"
' ]
' },
' "Management": {
' "DNSName": "string",
' "IpAddresses": [
' "string"
' ]
' }
' },
' "PreferredSubnetId": "string",
' "RouteTableIds": [
' "string"
' ],
' "ThroughputCapacity": number,
' "WeeklyMaintenanceStartTime": "string"
' },
' "OpenZFSConfiguration": {
' "AutomaticBackupRetentionDays": number,
' "CopyTagsToBackups": boolean,
' "CopyTagsToVolumes": boolean,
' "DailyAutomaticBackupStartTime": "string",
' "DeploymentType": "string",
' "DiskIopsConfiguration": {
' "Iops": number,
' "Mode": "string"
' },
' "RootVolumeId": "string",
' "ThroughputCapacity": number,
' "WeeklyMaintenanceStartTime": "string"
' },
' "OwnerId": "string",
' "ResourceARN": "string",
' "StorageCapacity": number,
' "StorageType": "string",
' "SubnetIds": [
' "string"
' ],
' "Tags": [
' {
' "Key": "string",
' "Value": "string"
' }
' ],
' "VpcId": "string",
' "WindowsConfiguration": {
' "ActiveDirectoryId": "string",
' "Aliases": [
' {
' "Lifecycle": "string",
' "Name": "string"
' }
' ],
' "AuditLogConfiguration": {
' "AuditLogDestination": "string",
' "FileAccessAuditLogLevel": "string",
' "FileShareAccessAuditLogLevel": "string"
' },
' "AutomaticBackupRetentionDays": number,
' "CopyTagsToBackups": boolean,
' "DailyAutomaticBackupStartTime": "string",
' "DeploymentType": "string",
' "MaintenanceOperationsInProgress": [
' "string"
' ],
' "PreferredFileServerIp": "string",
' "PreferredSubnetId": "string",
' "RemoteAdministrationEndpoint": "string",
' "SelfManagedActiveDirectoryConfiguration": {
' "DnsIps": [
' "string"
' ],
' "DomainName": "string",
' "FileSystemAdministratorsGroup": "string",
' "OrganizationalUnitDistinguishedName": "string",
' "UserName": "string"
' },
' "ThroughputCapacity": number,
' "WeeklyMaintenanceStartTime": "string"
' }
' },
' "TargetSnapshotValues": "Snapshot",
' "TargetVolumeValues": {
' "AdministrativeActions": [
' "AdministrativeAction"
' ],
' "CreationTime": number,
' "FileSystemId": "string",
' "Lifecycle": "string",
' "LifecycleTransitionReason": {
' "Message": "string"
' },
' "Name": "string",
' "OntapConfiguration": {
' "FlexCacheEndpointType": "string",
' "JunctionPath": "string",
' "OntapVolumeType": "string",
' "SecurityStyle": "string",
' "SizeInMegabytes": number,
' "StorageEfficiencyEnabled": boolean,
' "StorageVirtualMachineId": "string",
' "StorageVirtualMachineRoot": boolean,
' "TieringPolicy": {
' "CoolingPeriod": number,
' "Name": "string"
' },
' "UUID": "string"
' },
' "OpenZFSConfiguration": {
' "CopyTagsToSnapshots": boolean,
' "DataCompressionType": "string",
' "NfsExports": [
' {
' "ClientConfigurations": [
' {
' "Clients": "string",
' "Options": [
' "string"
' ]
' }
' ]
' }
' ],
' "OriginSnapshot": {
' "CopyStrategy": "string",
' "SnapshotARN": "string"
' },
' "ParentVolumeId": "string",
' "ReadOnly": boolean,
' "RecordSizeKiB": number,
' "StorageCapacityQuotaGiB": number,
' "StorageCapacityReservationGiB": number,
' "UserAndGroupQuotas": [
' {
' "Id": number,
' "StorageCapacityQuotaGiB": number,
' "Type": "string"
' }
' ],
' "VolumePath": "string"
' },
' "ResourceARN": "string",
' "Tags": [
' {
' "Key": "string",
' "Value": "string"
' }
' ],
' "VolumeId": "string",
' "VolumeType": "string"
' }
' }
' ],
' "CreationTime": number,
' "Lifecycle": "string",
' "LifecycleTransitionReason": {
' "Message": "string"
' },
' "Name": "string",
' "ResourceARN": "string",
' "SnapshotId": "string",
' "Tags": [
' {
' "Key": "string",
' "Value": "string"
' }
' ],
' "VolumeId": "string"
' }
' ]
' }
outFile.Close
