Chilkat Online Tools

UpdateSnapshot VBScript Example

Amazon FSx

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("ClientRequestToken","string")
success = json.UpdateString("Name","string")
success = json.UpdateString("SnapshotId","string")

' The JSON request body created by the above code:

' {
'   "ClientRequestToken": "string",
'   "Name": "string",
'   "SnapshotId": "string"
' }

success = rest.AddHeader("Content-Type","application/x-amz-json-1.1")
success = rest.AddHeader("X-Amz-Target","AWSSimbaAPIService_v20180301.UpdateSnapshot")

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

CreationTime = jResp.IntOf("Snapshot.CreationTime")
Lifecycle = jResp.StringOf("Snapshot.Lifecycle")
Message = jResp.StringOf("Snapshot.LifecycleTransitionReason.Message")
Name = jResp.StringOf("Snapshot.Name")
ResourceARN = jResp.StringOf("Snapshot.ResourceARN")
SnapshotId = jResp.StringOf("Snapshot.SnapshotId")
VolumeId = jResp.StringOf("Snapshot.VolumeId")
i = 0
count_i = jResp.SizeOfArray("Snapshot.AdministrativeActions")
Do While i < count_i
    jResp.I = i
    AdministrativeActionType = jResp.StringOf("Snapshot.AdministrativeActions[i].AdministrativeActionType")
    FailureDetailsMessage = jResp.StringOf("Snapshot.AdministrativeActions[i].FailureDetails.Message")
    ProgressPercent = jResp.IntOf("Snapshot.AdministrativeActions[i].ProgressPercent")
    RequestTime = jResp.IntOf("Snapshot.AdministrativeActions[i].RequestTime")
    Status = jResp.StringOf("Snapshot.AdministrativeActions[i].Status")
    TargetFileSystemValuesCreationTime = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.CreationTime")
    DNSName = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.DNSName")
    FailureDetailsMessage = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.FailureDetails.Message")
    FileSystemId = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.FileSystemId")
    FileSystemType = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.FileSystemType")
    FileSystemTypeVersion = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.FileSystemTypeVersion")
    KmsKeyId = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.KmsKeyId")
    TargetFileSystemValuesLifecycle = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.Lifecycle")
    AutomaticBackupRetentionDays = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.AutomaticBackupRetentionDays")
    CopyTagsToBackups = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.CopyTagsToBackups")
    DailyAutomaticBackupStartTime = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DailyAutomaticBackupStartTime")
    DataCompressionType = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataCompressionType")
    AutoImportPolicy = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.AutoImportPolicy")
    ExportPath = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.ExportPath")
    FailureDetailsMessage = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.FailureDetails.Message")
    ImportedFileChunkSize = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.ImportedFileChunkSize")
    ImportPath = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.ImportPath")
    DataRepositoryConfigurationLifecycle = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.Lifecycle")
    DeploymentType = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DeploymentType")
    DriveCacheType = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DriveCacheType")
    Destination = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.LogConfiguration.Destination")
    Level = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.LogConfiguration.Level")
    MountName = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.MountName")
    PerUnitStorageThroughput = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.PerUnitStorageThroughput")
    WeeklyMaintenanceStartTime = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.WeeklyMaintenanceStartTime")
    OntapConfigurationAutomaticBackupRetentionDays = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.AutomaticBackupRetentionDays")
    OntapConfigurationDailyAutomaticBackupStartTime = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.DailyAutomaticBackupStartTime")
    OntapConfigurationDeploymentType = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.DeploymentType")
    Iops = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.DiskIopsConfiguration.Iops")
    Mode = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.DiskIopsConfiguration.Mode")
    EndpointIpAddressRange = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.EndpointIpAddressRange")
    InterclusterDNSName = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.Endpoints.Intercluster.DNSName")
    ManagementDNSName = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.Endpoints.Management.DNSName")
    PreferredSubnetId = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.PreferredSubnetId")
    ThroughputCapacity = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.ThroughputCapacity")
    OntapConfigurationWeeklyMaintenanceStartTime = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.WeeklyMaintenanceStartTime")
    OpenZFSConfigurationAutomaticBackupRetentionDays = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.AutomaticBackupRetentionDays")
    OpenZFSConfigurationCopyTagsToBackups = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.CopyTagsToBackups")
    CopyTagsToVolumes = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.CopyTagsToVolumes")
    OpenZFSConfigurationDailyAutomaticBackupStartTime = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.DailyAutomaticBackupStartTime")
    OpenZFSConfigurationDeploymentType = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.DeploymentType")
    DiskIopsConfigurationIops = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.DiskIopsConfiguration.Iops")
    DiskIopsConfigurationMode = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.DiskIopsConfiguration.Mode")
    RootVolumeId = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.RootVolumeId")
    OpenZFSConfigurationThroughputCapacity = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.ThroughputCapacity")
    OpenZFSConfigurationWeeklyMaintenanceStartTime = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.WeeklyMaintenanceStartTime")
    OwnerId = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OwnerId")
    TargetFileSystemValuesResourceARN = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.ResourceARN")
    StorageCapacity = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.StorageCapacity")
    StorageType = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.StorageType")
    VpcId = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.VpcId")
    ActiveDirectoryId = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.ActiveDirectoryId")
    AuditLogDestination = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.AuditLogConfiguration.AuditLogDestination")
    FileAccessAuditLogLevel = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.AuditLogConfiguration.FileAccessAuditLogLevel")
    FileShareAccessAuditLogLevel = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.AuditLogConfiguration.FileShareAccessAuditLogLevel")
    WindowsConfigurationAutomaticBackupRetentionDays = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.AutomaticBackupRetentionDays")
    WindowsConfigurationCopyTagsToBackups = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.CopyTagsToBackups")
    WindowsConfigurationDailyAutomaticBackupStartTime = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.DailyAutomaticBackupStartTime")
    WindowsConfigurationDeploymentType = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.DeploymentType")
    PreferredFileServerIp = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.PreferredFileServerIp")
    WindowsConfigurationPreferredSubnetId = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.PreferredSubnetId")
    RemoteAdministrationEndpoint = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.RemoteAdministrationEndpoint")
    DomainName = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DomainName")
    FileSystemAdministratorsGroup = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.FileSystemAdministratorsGroup")
    OrganizationalUnitDistinguishedName = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.OrganizationalUnitDistinguishedName")
    UserName = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.UserName")
    WindowsConfigurationThroughputCapacity = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.ThroughputCapacity")
    WindowsConfigurationWeeklyMaintenanceStartTime = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.WeeklyMaintenanceStartTime")
    TargetSnapshotValues = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetSnapshotValues")
    TargetVolumeValuesCreationTime = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.CreationTime")
    TargetVolumeValuesFileSystemId = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.FileSystemId")
    TargetVolumeValuesLifecycle = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.Lifecycle")
    LifecycleTransitionReasonMessage = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.LifecycleTransitionReason.Message")
    TargetVolumeValuesName = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.Name")
    FlexCacheEndpointType = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.FlexCacheEndpointType")
    JunctionPath = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.JunctionPath")
    OntapVolumeType = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.OntapVolumeType")
    SecurityStyle = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.SecurityStyle")
    SizeInMegabytes = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.SizeInMegabytes")
    StorageEfficiencyEnabled = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.StorageEfficiencyEnabled")
    StorageVirtualMachineId = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.StorageVirtualMachineId")
    StorageVirtualMachineRoot = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.StorageVirtualMachineRoot")
    CoolingPeriod = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.TieringPolicy.CoolingPeriod")
    TieringPolicyName = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.TieringPolicy.Name")
    UUID = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.UUID")
    CopyTagsToSnapshots = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.CopyTagsToSnapshots")
    OpenZFSConfigurationDataCompressionType = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.DataCompressionType")
    CopyStrategy = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.OriginSnapshot.CopyStrategy")
    SnapshotARN = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.OriginSnapshot.SnapshotARN")
    ParentVolumeId = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.ParentVolumeId")
    ReadOnly = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.ReadOnly")
    RecordSizeKiB = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.RecordSizeKiB")
    StorageCapacityQuotaGiB = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.StorageCapacityQuotaGiB")
    StorageCapacityReservationGiB = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.StorageCapacityReservationGiB")
    VolumePath = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.VolumePath")
    TargetVolumeValuesResourceARN = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.ResourceARN")
    TargetVolumeValuesVolumeId = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.VolumeId")
    VolumeType = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.VolumeType")
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetFileSystemValues.AdministrativeActions")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.AdministrativeActions[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetFileSystemValues.NetworkInterfaceIds")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.NetworkInterfaceIds[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.Endpoints.Intercluster.IpAddresses")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.Endpoints.Intercluster.IpAddresses[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.Endpoints.Management.IpAddresses")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.Endpoints.Management.IpAddresses[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.RouteTableIds")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.RouteTableIds[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetFileSystemValues.SubnetIds")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.SubnetIds[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetFileSystemValues.Tags")
    Do While j < count_j
        jResp.J = j
        Key = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.Tags[j].Key")
        Value = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.Tags[j].Value")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.Aliases")
    Do While j < count_j
        jResp.J = j
        Lifecycle = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.Aliases[j].Lifecycle")
        Name = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.Aliases[j].Name")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.MaintenanceOperationsInProgress")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.MaintenanceOperationsInProgress[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetVolumeValues.AdministrativeActions")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.AdministrativeActions[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.NfsExports")
    Do While j < count_j
        jResp.J = j
        k = 0
        count_k = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.NfsExports[j].ClientConfigurations")
        Do While k < count_k
            jResp.K = k
            Clients = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.NfsExports[j].ClientConfigurations[k].Clients")

            ' json1 is a Chilkat_9_5_0.JsonObject
            Set json1 = jResp.ObjectOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.NfsExports[j].ClientConfigurations[k]")
            i1 = 0
            count_i1 = json1.SizeOfArray("Options")
            Do While i1 < count_i1
                json1.I = i1
                strVal = json1.StringOf("Options[i]")
                i1 = i1 + 1
            Loop

            k = k + 1
        Loop
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas")
    Do While j < count_j
        jResp.J = j
        Id = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[j].Id")
        StorageCapacityQuotaGiB = jResp.IntOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[j].StorageCapacityQuotaGiB")
        v_Type = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[j].Type")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Snapshot.AdministrativeActions[i].TargetVolumeValues.Tags")
    Do While j < count_j
        jResp.J = j
        Key = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.Tags[j].Key")
        Value = jResp.StringOf("Snapshot.AdministrativeActions[i].TargetVolumeValues.Tags[j].Value")
        j = j + 1
    Loop
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Snapshot.Tags")
Do While i < count_i
    jResp.I = i
    Key = jResp.StringOf("Snapshot.Tags[i].Key")
    Value = jResp.StringOf("Snapshot.Tags[i].Value")
    i = i + 1
Loop

' A sample JSON response body parsed by the above code:

' {
'   "Snapshot": {
'     "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