Chilkat Online Tools

DescribeFileSystems 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("FileSystemIds[0]","string")
success = json.UpdateInt("MaxResults",123)
success = json.UpdateString("NextToken","string")

' The JSON request body created by the above code:

' {
'   "FileSystemIds": [
'     "string"
'   ],
'   "MaxResults": number,
'   "NextToken": "string"
' }

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

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

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

' {
'   "FileSystems": [
'     {
'       "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"
'       }
'     }
'   ],
'   "NextToken": "string"
' }

outFile.Close