Chilkat Online Tools

ReleaseFileSystemNfsV3Locks VB.NET Example

Amazon FSx

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim rest As New Chilkat.Rest
Dim success As Boolean

Dim authAws As New Chilkat.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
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,True,True)
If (success <> True) Then
    Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
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

Dim json As New Chilkat.JsonObject
json.UpdateString("ClientRequestToken","string")
json.UpdateString("FileSystemId","string")

' The JSON request body created by the above code:

' {
'   "ClientRequestToken": "string",
'   "FileSystemId": "string"
' }

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

Dim sbRequestBody As New Chilkat.StringBuilder
json.EmitSb(sbRequestBody)
Dim sbResponseBody As New Chilkat.StringBuilder
success = rest.FullRequestSb("POST","/",sbRequestBody,sbResponseBody)
If (success <> True) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If

Dim respStatusCode As Integer = rest.ResponseStatusCode
Debug.WriteLine("response status code = " & respStatusCode)
If (respStatusCode <> 200) Then
    Debug.WriteLine("Response Header:")
    Debug.WriteLine(rest.ResponseHeader)
    Debug.WriteLine("Response Body:")
    Debug.WriteLine(sbResponseBody.GetAsString())
    Exit Sub
End If


Dim jResp As New Chilkat.JsonObject
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



Dim AdministrativeActionType As String
Dim ProgressPercent As Integer
Dim RequestTime As Integer
Dim Status As String
Dim TargetFileSystemValues As String
Dim TargetSnapshotValuesCreationTime As Integer
Dim TargetSnapshotValuesLifecycle As String
Dim LifecycleTransitionReasonMessage As String
Dim Name As String
Dim TargetSnapshotValuesResourceARN As String
Dim SnapshotId As String
Dim VolumeId As String
Dim TargetVolumeValuesCreationTime As Integer
Dim TargetVolumeValuesFileSystemId As String
Dim TargetVolumeValuesLifecycle As String
Dim TargetVolumeValuesName As String
Dim FlexCacheEndpointType As String
Dim JunctionPath As String
Dim OntapVolumeType As String
Dim SecurityStyle As String
Dim SizeInMegabytes As Integer
Dim StorageEfficiencyEnabled As Integer
Dim StorageVirtualMachineId As String
Dim StorageVirtualMachineRoot As Integer
Dim CoolingPeriod As Integer
Dim TieringPolicyName As String
Dim UUID As String
Dim CopyTagsToSnapshots As Integer
Dim OpenZFSConfigurationDataCompressionType As String
Dim CopyStrategy As String
Dim SnapshotARN As String
Dim ParentVolumeId As String
Dim ReadOnly As Integer
Dim RecordSizeKiB As Integer
Dim StorageCapacityQuotaGiB As Integer
Dim StorageCapacityReservationGiB As Integer
Dim VolumePath As String
Dim TargetVolumeValuesResourceARN As String
Dim TargetVolumeValuesVolumeId As String
Dim VolumeType As String
Dim j As Integer
Dim count_j As Integer
Dim strVal As String
Dim Key As String
Dim Value As String
Dim k As Integer
Dim count_k As Integer
Dim Clients As String
Dim json1 As Chilkat.JsonObject
Dim i1 As Integer
Dim count_i1 As Integer
Dim Id As Integer
Dim v_Type As String

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

            json1 = jResp.ObjectOf("FileSystem.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.NfsExports[j].ClientConfigurations[k]")
            i1 = 0
            count_i1 = json1.SizeOfArray("Options")
            While i1 < count_i1
                json1.I = i1
                strVal = json1.StringOf("Options[i]")
                i1 = i1 + 1
            End While

            k = k + 1
        End While
        j = j + 1
    End While
    j = 0
    count_j = jResp.SizeOfArray("FileSystem.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas")
    While j < count_j
        jResp.J = j
        Id = jResp.IntOf("FileSystem.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[j].Id")
        StorageCapacityQuotaGiB = jResp.IntOf("FileSystem.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[j].StorageCapacityQuotaGiB")
        v_Type = jResp.StringOf("FileSystem.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[j].Type")
        j = j + 1
    End While
    j = 0
    count_j = jResp.SizeOfArray("FileSystem.AdministrativeActions[i].TargetVolumeValues.Tags")
    While j < count_j
        jResp.J = j
        Key = jResp.StringOf("FileSystem.AdministrativeActions[i].TargetVolumeValues.Tags[j].Key")
        Value = jResp.StringOf("FileSystem.AdministrativeActions[i].TargetVolumeValues.Tags[j].Value")
        j = j + 1
    End While
    i = i + 1
End While
i = 0
count_i = jResp.SizeOfArray("FileSystem.NetworkInterfaceIds")
While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.NetworkInterfaceIds[i]")
    i = i + 1
End While
i = 0
count_i = jResp.SizeOfArray("FileSystem.OntapConfiguration.Endpoints.Intercluster.IpAddresses")
While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.OntapConfiguration.Endpoints.Intercluster.IpAddresses[i]")
    i = i + 1
End While
i = 0
count_i = jResp.SizeOfArray("FileSystem.OntapConfiguration.Endpoints.Management.IpAddresses")
While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.OntapConfiguration.Endpoints.Management.IpAddresses[i]")
    i = i + 1
End While
i = 0
count_i = jResp.SizeOfArray("FileSystem.OntapConfiguration.RouteTableIds")
While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.OntapConfiguration.RouteTableIds[i]")
    i = i + 1
End While
i = 0
count_i = jResp.SizeOfArray("FileSystem.SubnetIds")
While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.SubnetIds[i]")
    i = i + 1
End While
i = 0
count_i = jResp.SizeOfArray("FileSystem.Tags")
While i < count_i
    jResp.I = i
    Key = jResp.StringOf("FileSystem.Tags[i].Key")
    Value = jResp.StringOf("FileSystem.Tags[i].Value")
    i = i + 1
End While
i = 0
count_i = jResp.SizeOfArray("FileSystem.WindowsConfiguration.Aliases")
While i < count_i
    jResp.I = i
    Lifecycle = jResp.StringOf("FileSystem.WindowsConfiguration.Aliases[i].Lifecycle")
    Name = jResp.StringOf("FileSystem.WindowsConfiguration.Aliases[i].Name")
    i = i + 1
End While
i = 0
count_i = jResp.SizeOfArray("FileSystem.WindowsConfiguration.MaintenanceOperationsInProgress")
While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.WindowsConfiguration.MaintenanceOperationsInProgress[i]")
    i = i + 1
End While
i = 0
count_i = jResp.SizeOfArray("FileSystem.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps")
While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps[i]")
    i = i + 1
End While


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

' {
'   "FileSystem": {
'     "AdministrativeActions": [
'       {
'         "AdministrativeActionType": "string",
'         "FailureDetails": {
'           "Message": "string"
'         },
'         "ProgressPercent": number,
'         "RequestTime": number,
'         "Status": "string",
'         "TargetFileSystemValues": "FileSystem",
'         "TargetSnapshotValues": {
'           "AdministrativeActions": [
'             "AdministrativeAction"
'           ],
'           "CreationTime": number,
'           "Lifecycle": "string",
'           "LifecycleTransitionReason": {
'             "Message": "string"
'           },
'           "Name": "string",
'           "ResourceARN": "string",
'           "SnapshotId": "string",
'           "Tags": [
'             {
'               "Key": "string",
'               "Value": "string"
'             }
'           ],
'           "VolumeId": "string"
'         },
'         "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,
'     "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"
'     }
'   }
' }