Chilkat Online Tools

CreateFileSystem 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("FileSystemType","string")
success = json.UpdateString("FileSystemTypeVersion","string")
success = json.UpdateString("KmsKeyId","string")
success = json.UpdateString("LustreConfiguration.AutoImportPolicy","string")
success = json.UpdateInt("LustreConfiguration.AutomaticBackupRetentionDays",123)
success = json.UpdateInt("LustreConfiguration.CopyTagsToBackups",123)
success = json.UpdateString("LustreConfiguration.DailyAutomaticBackupStartTime","string")
success = json.UpdateString("LustreConfiguration.DataCompressionType","string")
success = json.UpdateString("LustreConfiguration.DeploymentType","string")
success = json.UpdateString("LustreConfiguration.DriveCacheType","string")
success = json.UpdateString("LustreConfiguration.ExportPath","string")
success = json.UpdateInt("LustreConfiguration.ImportedFileChunkSize",123)
success = json.UpdateString("LustreConfiguration.ImportPath","string")
success = json.UpdateString("LustreConfiguration.LogConfiguration.Destination","string")
success = json.UpdateString("LustreConfiguration.LogConfiguration.Level","string")
success = json.UpdateInt("LustreConfiguration.PerUnitStorageThroughput",123)
success = json.UpdateString("LustreConfiguration.WeeklyMaintenanceStartTime","string")
success = json.UpdateInt("OntapConfiguration.AutomaticBackupRetentionDays",123)
success = json.UpdateString("OntapConfiguration.DailyAutomaticBackupStartTime","string")
success = json.UpdateString("OntapConfiguration.DeploymentType","string")
success = json.UpdateInt("OntapConfiguration.DiskIopsConfiguration.Iops",123)
success = json.UpdateString("OntapConfiguration.DiskIopsConfiguration.Mode","string")
success = json.UpdateString("OntapConfiguration.EndpointIpAddressRange","string")
success = json.UpdateString("OntapConfiguration.FsxAdminPassword","string")
success = json.UpdateString("OntapConfiguration.PreferredSubnetId","string")
success = json.UpdateString("OntapConfiguration.RouteTableIds[0]","string")
success = json.UpdateInt("OntapConfiguration.ThroughputCapacity",123)
success = json.UpdateString("OntapConfiguration.WeeklyMaintenanceStartTime","string")
success = json.UpdateInt("OpenZFSConfiguration.AutomaticBackupRetentionDays",123)
success = json.UpdateInt("OpenZFSConfiguration.CopyTagsToBackups",123)
success = json.UpdateInt("OpenZFSConfiguration.CopyTagsToVolumes",123)
success = json.UpdateString("OpenZFSConfiguration.DailyAutomaticBackupStartTime","string")
success = json.UpdateString("OpenZFSConfiguration.DeploymentType","string")
success = json.UpdateInt("OpenZFSConfiguration.DiskIopsConfiguration.Iops",123)
success = json.UpdateString("OpenZFSConfiguration.DiskIopsConfiguration.Mode","string")
success = json.UpdateInt("OpenZFSConfiguration.RootVolumeConfiguration.CopyTagsToSnapshots",123)
success = json.UpdateString("OpenZFSConfiguration.RootVolumeConfiguration.DataCompressionType","string")
success = json.UpdateString("OpenZFSConfiguration.RootVolumeConfiguration.NfsExports[0].ClientConfigurations[0].Clients","string")
success = json.UpdateString("OpenZFSConfiguration.RootVolumeConfiguration.NfsExports[0].ClientConfigurations[0].Options[0]","string")
success = json.UpdateInt("OpenZFSConfiguration.RootVolumeConfiguration.ReadOnly",123)
success = json.UpdateInt("OpenZFSConfiguration.RootVolumeConfiguration.RecordSizeKiB",123)
success = json.UpdateInt("OpenZFSConfiguration.RootVolumeConfiguration.UserAndGroupQuotas[0].Id",123)
success = json.UpdateInt("OpenZFSConfiguration.RootVolumeConfiguration.UserAndGroupQuotas[0].StorageCapacityQuotaGiB",123)
success = json.UpdateString("OpenZFSConfiguration.RootVolumeConfiguration.UserAndGroupQuotas[0].Type","string")
success = json.UpdateInt("OpenZFSConfiguration.ThroughputCapacity",123)
success = json.UpdateString("OpenZFSConfiguration.WeeklyMaintenanceStartTime","string")
success = json.UpdateString("SecurityGroupIds[0]","string")
success = json.UpdateInt("StorageCapacity",123)
success = json.UpdateString("StorageType","string")
success = json.UpdateString("SubnetIds[0]","string")
success = json.UpdateString("Tags[0].Key","string")
success = json.UpdateString("Tags[0].Value","string")
success = json.UpdateString("WindowsConfiguration.ActiveDirectoryId","string")
success = json.UpdateString("WindowsConfiguration.Aliases[0]","string")
success = json.UpdateString("WindowsConfiguration.AuditLogConfiguration.AuditLogDestination","string")
success = json.UpdateString("WindowsConfiguration.AuditLogConfiguration.FileAccessAuditLogLevel","string")
success = json.UpdateString("WindowsConfiguration.AuditLogConfiguration.FileShareAccessAuditLogLevel","string")
success = json.UpdateInt("WindowsConfiguration.AutomaticBackupRetentionDays",123)
success = json.UpdateInt("WindowsConfiguration.CopyTagsToBackups",123)
success = json.UpdateString("WindowsConfiguration.DailyAutomaticBackupStartTime","string")
success = json.UpdateString("WindowsConfiguration.DeploymentType","string")
success = json.UpdateString("WindowsConfiguration.PreferredSubnetId","string")
success = json.UpdateString("WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps[0]","string")
success = json.UpdateString("WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DomainName","string")
success = json.UpdateString("WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.FileSystemAdministratorsGroup","string")
success = json.UpdateString("WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.OrganizationalUnitDistinguishedName","string")
success = json.UpdateString("WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.Password","string")
success = json.UpdateString("WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.UserName","string")
success = json.UpdateInt("WindowsConfiguration.ThroughputCapacity",123)
success = json.UpdateString("WindowsConfiguration.WeeklyMaintenanceStartTime","string")

' The JSON request body created by the above code:

' {
'   "ClientRequestToken": "string",
'   "FileSystemType": "string",
'   "FileSystemTypeVersion": "string",
'   "KmsKeyId": "string",
'   "LustreConfiguration": {
'     "AutoImportPolicy": "string",
'     "AutomaticBackupRetentionDays": number,
'     "CopyTagsToBackups": boolean,
'     "DailyAutomaticBackupStartTime": "string",
'     "DataCompressionType": "string",
'     "DeploymentType": "string",
'     "DriveCacheType": "string",
'     "ExportPath": "string",
'     "ImportedFileChunkSize": number,
'     "ImportPath": "string",
'     "LogConfiguration": {
'       "Destination": "string",
'       "Level": "string"
'     },
'     "PerUnitStorageThroughput": number,
'     "WeeklyMaintenanceStartTime": "string"
'   },
'   "OntapConfiguration": {
'     "AutomaticBackupRetentionDays": number,
'     "DailyAutomaticBackupStartTime": "string",
'     "DeploymentType": "string",
'     "DiskIopsConfiguration": {
'       "Iops": number,
'       "Mode": "string"
'     },
'     "EndpointIpAddressRange": "string",
'     "FsxAdminPassword": "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"
'     },
'     "RootVolumeConfiguration": {
'       "CopyTagsToSnapshots": boolean,
'       "DataCompressionType": "string",
'       "NfsExports": [
'         {
'           "ClientConfigurations": [
'             {
'               "Clients": "string",
'               "Options": [
'                 "string"
'               ]
'             }
'           ]
'         }
'       ],
'       "ReadOnly": boolean,
'       "RecordSizeKiB": number,
'       "UserAndGroupQuotas": [
'         {
'           "Id": number,
'           "StorageCapacityQuotaGiB": number,
'           "Type": "string"
'         }
'       ]
'     },
'     "ThroughputCapacity": number,
'     "WeeklyMaintenanceStartTime": "string"
'   },
'   "SecurityGroupIds": [
'     "string"
'   ],
'   "StorageCapacity": number,
'   "StorageType": "string",
'   "SubnetIds": [
'     "string"
'   ],
'   "Tags": [
'     {
'       "Key": "string",
'       "Value": "string"
'     }
'   ],
'   "WindowsConfiguration": {
'     "ActiveDirectoryId": "string",
'     "Aliases": [
'       "string"
'     ],
'     "AuditLogConfiguration": {
'       "AuditLogDestination": "string",
'       "FileAccessAuditLogLevel": "string",
'       "FileShareAccessAuditLogLevel": "string"
'     },
'     "AutomaticBackupRetentionDays": number,
'     "CopyTagsToBackups": boolean,
'     "DailyAutomaticBackupStartTime": "string",
'     "DeploymentType": "string",
'     "PreferredSubnetId": "string",
'     "SelfManagedActiveDirectoryConfiguration": {
'       "DnsIps": [
'         "string"
'       ],
'       "DomainName": "string",
'       "FileSystemAdministratorsGroup": "string",
'       "OrganizationalUnitDistinguishedName": "string",
'       "Password": "string",
'       "UserName": "string"
'     },
'     "ThroughputCapacity": number,
'     "WeeklyMaintenanceStartTime": "string"
'   }
' }

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

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("FileSystem.CreationTime")
DNSName = jResp.StringOf("FileSystem.DNSName")
Message = jResp.StringOf("FileSystem.FailureDetails.Message")
FileSystemId = jResp.StringOf("FileSystem.FileSystemId")
FileSystemType = jResp.StringOf("FileSystem.FileSystemType")
FileSystemTypeVersion = jResp.StringOf("FileSystem.FileSystemTypeVersion")
KmsKeyId = jResp.StringOf("FileSystem.KmsKeyId")
Lifecycle = jResp.StringOf("FileSystem.Lifecycle")
AutomaticBackupRetentionDays = jResp.IntOf("FileSystem.LustreConfiguration.AutomaticBackupRetentionDays")
CopyTagsToBackups = jResp.IntOf("FileSystem.LustreConfiguration.CopyTagsToBackups")
DailyAutomaticBackupStartTime = jResp.StringOf("FileSystem.LustreConfiguration.DailyAutomaticBackupStartTime")
DataCompressionType = jResp.StringOf("FileSystem.LustreConfiguration.DataCompressionType")
AutoImportPolicy = jResp.StringOf("FileSystem.LustreConfiguration.DataRepositoryConfiguration.AutoImportPolicy")
ExportPath = jResp.StringOf("FileSystem.LustreConfiguration.DataRepositoryConfiguration.ExportPath")
FailureDetailsMessage = jResp.StringOf("FileSystem.LustreConfiguration.DataRepositoryConfiguration.FailureDetails.Message")
ImportedFileChunkSize = jResp.IntOf("FileSystem.LustreConfiguration.DataRepositoryConfiguration.ImportedFileChunkSize")
ImportPath = jResp.StringOf("FileSystem.LustreConfiguration.DataRepositoryConfiguration.ImportPath")
DataRepositoryConfigurationLifecycle = jResp.StringOf("FileSystem.LustreConfiguration.DataRepositoryConfiguration.Lifecycle")
DeploymentType = jResp.StringOf("FileSystem.LustreConfiguration.DeploymentType")
DriveCacheType = jResp.StringOf("FileSystem.LustreConfiguration.DriveCacheType")
Destination = jResp.StringOf("FileSystem.LustreConfiguration.LogConfiguration.Destination")
Level = jResp.StringOf("FileSystem.LustreConfiguration.LogConfiguration.Level")
MountName = jResp.StringOf("FileSystem.LustreConfiguration.MountName")
PerUnitStorageThroughput = jResp.IntOf("FileSystem.LustreConfiguration.PerUnitStorageThroughput")
WeeklyMaintenanceStartTime = jResp.StringOf("FileSystem.LustreConfiguration.WeeklyMaintenanceStartTime")
OntapConfigurationAutomaticBackupRetentionDays = jResp.IntOf("FileSystem.OntapConfiguration.AutomaticBackupRetentionDays")
OntapConfigurationDailyAutomaticBackupStartTime = jResp.StringOf("FileSystem.OntapConfiguration.DailyAutomaticBackupStartTime")
OntapConfigurationDeploymentType = jResp.StringOf("FileSystem.OntapConfiguration.DeploymentType")
Iops = jResp.IntOf("FileSystem.OntapConfiguration.DiskIopsConfiguration.Iops")
Mode = jResp.StringOf("FileSystem.OntapConfiguration.DiskIopsConfiguration.Mode")
EndpointIpAddressRange = jResp.StringOf("FileSystem.OntapConfiguration.EndpointIpAddressRange")
InterclusterDNSName = jResp.StringOf("FileSystem.OntapConfiguration.Endpoints.Intercluster.DNSName")
ManagementDNSName = jResp.StringOf("FileSystem.OntapConfiguration.Endpoints.Management.DNSName")
PreferredSubnetId = jResp.StringOf("FileSystem.OntapConfiguration.PreferredSubnetId")
ThroughputCapacity = jResp.IntOf("FileSystem.OntapConfiguration.ThroughputCapacity")
OntapConfigurationWeeklyMaintenanceStartTime = jResp.StringOf("FileSystem.OntapConfiguration.WeeklyMaintenanceStartTime")
OpenZFSConfigurationAutomaticBackupRetentionDays = jResp.IntOf("FileSystem.OpenZFSConfiguration.AutomaticBackupRetentionDays")
OpenZFSConfigurationCopyTagsToBackups = jResp.IntOf("FileSystem.OpenZFSConfiguration.CopyTagsToBackups")
CopyTagsToVolumes = jResp.IntOf("FileSystem.OpenZFSConfiguration.CopyTagsToVolumes")
OpenZFSConfigurationDailyAutomaticBackupStartTime = jResp.StringOf("FileSystem.OpenZFSConfiguration.DailyAutomaticBackupStartTime")
OpenZFSConfigurationDeploymentType = jResp.StringOf("FileSystem.OpenZFSConfiguration.DeploymentType")
DiskIopsConfigurationIops = jResp.IntOf("FileSystem.OpenZFSConfiguration.DiskIopsConfiguration.Iops")
DiskIopsConfigurationMode = jResp.StringOf("FileSystem.OpenZFSConfiguration.DiskIopsConfiguration.Mode")
RootVolumeId = jResp.StringOf("FileSystem.OpenZFSConfiguration.RootVolumeId")
OpenZFSConfigurationThroughputCapacity = jResp.IntOf("FileSystem.OpenZFSConfiguration.ThroughputCapacity")
OpenZFSConfigurationWeeklyMaintenanceStartTime = jResp.StringOf("FileSystem.OpenZFSConfiguration.WeeklyMaintenanceStartTime")
OwnerId = jResp.StringOf("FileSystem.OwnerId")
ResourceARN = jResp.StringOf("FileSystem.ResourceARN")
StorageCapacity = jResp.IntOf("FileSystem.StorageCapacity")
StorageType = jResp.StringOf("FileSystem.StorageType")
VpcId = jResp.StringOf("FileSystem.VpcId")
ActiveDirectoryId = jResp.StringOf("FileSystem.WindowsConfiguration.ActiveDirectoryId")
AuditLogDestination = jResp.StringOf("FileSystem.WindowsConfiguration.AuditLogConfiguration.AuditLogDestination")
FileAccessAuditLogLevel = jResp.StringOf("FileSystem.WindowsConfiguration.AuditLogConfiguration.FileAccessAuditLogLevel")
FileShareAccessAuditLogLevel = jResp.StringOf("FileSystem.WindowsConfiguration.AuditLogConfiguration.FileShareAccessAuditLogLevel")
WindowsConfigurationAutomaticBackupRetentionDays = jResp.IntOf("FileSystem.WindowsConfiguration.AutomaticBackupRetentionDays")
WindowsConfigurationCopyTagsToBackups = jResp.IntOf("FileSystem.WindowsConfiguration.CopyTagsToBackups")
WindowsConfigurationDailyAutomaticBackupStartTime = jResp.StringOf("FileSystem.WindowsConfiguration.DailyAutomaticBackupStartTime")
WindowsConfigurationDeploymentType = jResp.StringOf("FileSystem.WindowsConfiguration.DeploymentType")
PreferredFileServerIp = jResp.StringOf("FileSystem.WindowsConfiguration.PreferredFileServerIp")
WindowsConfigurationPreferredSubnetId = jResp.StringOf("FileSystem.WindowsConfiguration.PreferredSubnetId")
RemoteAdministrationEndpoint = jResp.StringOf("FileSystem.WindowsConfiguration.RemoteAdministrationEndpoint")
DomainName = jResp.StringOf("FileSystem.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DomainName")
FileSystemAdministratorsGroup = jResp.StringOf("FileSystem.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.FileSystemAdministratorsGroup")
OrganizationalUnitDistinguishedName = jResp.StringOf("FileSystem.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.OrganizationalUnitDistinguishedName")
UserName = jResp.StringOf("FileSystem.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.UserName")
WindowsConfigurationThroughputCapacity = jResp.IntOf("FileSystem.WindowsConfiguration.ThroughputCapacity")
WindowsConfigurationWeeklyMaintenanceStartTime = jResp.StringOf("FileSystem.WindowsConfiguration.WeeklyMaintenanceStartTime")
i = 0
count_i = jResp.SizeOfArray("FileSystem.AdministrativeActions")
Do 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")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("FileSystem.AdministrativeActions[i].TargetSnapshotValues.AdministrativeActions[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("FileSystem.AdministrativeActions[i].TargetSnapshotValues.Tags")
    Do 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
    Loop
    j = 0
    count_j = jResp.SizeOfArray("FileSystem.AdministrativeActions[i].TargetVolumeValues.AdministrativeActions")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("FileSystem.AdministrativeActions[i].TargetVolumeValues.AdministrativeActions[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("FileSystem.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.NfsExports")
    Do While j < count_j
        jResp.J = j
        k = 0
        count_k = jResp.SizeOfArray("FileSystem.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.NfsExports[j].ClientConfigurations")
        Do While k < count_k
            jResp.K = k
            Clients = jResp.StringOf("FileSystem.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.NfsExports[j].ClientConfigurations[k].Clients")

            ' json1 is a Chilkat_9_5_0.JsonObject
            Set json1 = jResp.ObjectOf("FileSystem.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("FileSystem.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas")
    Do 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
    Loop
    j = 0
    count_j = jResp.SizeOfArray("FileSystem.AdministrativeActions[i].TargetVolumeValues.Tags")
    Do 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
    Loop
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("FileSystem.NetworkInterfaceIds")
Do While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.NetworkInterfaceIds[i]")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("FileSystem.OntapConfiguration.Endpoints.Intercluster.IpAddresses")
Do While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.OntapConfiguration.Endpoints.Intercluster.IpAddresses[i]")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("FileSystem.OntapConfiguration.Endpoints.Management.IpAddresses")
Do While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.OntapConfiguration.Endpoints.Management.IpAddresses[i]")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("FileSystem.OntapConfiguration.RouteTableIds")
Do While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.OntapConfiguration.RouteTableIds[i]")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("FileSystem.SubnetIds")
Do While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.SubnetIds[i]")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("FileSystem.Tags")
Do While i < count_i
    jResp.I = i
    Key = jResp.StringOf("FileSystem.Tags[i].Key")
    Value = jResp.StringOf("FileSystem.Tags[i].Value")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("FileSystem.WindowsConfiguration.Aliases")
Do 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
Loop
i = 0
count_i = jResp.SizeOfArray("FileSystem.WindowsConfiguration.MaintenanceOperationsInProgress")
Do While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.WindowsConfiguration.MaintenanceOperationsInProgress[i]")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("FileSystem.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps")
Do While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("FileSystem.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps[i]")
    i = i + 1
Loop

' 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"
'     }
'   }
' }

outFile.Close