ListServers autoit Example
; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.
$oRest = ObjCreate("Chilkat_9_5_0.Rest")
Local $bSuccess
$oAuthAws = ObjCreate("Chilkat_9_5_0.AuthAws")
$oAuthAws.AccessKey = "AWS_ACCESS_KEY"
$oAuthAws.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.)
$oAuthAws.Region = "us-west-2"
$oAuthAws.ServiceName = "migrationhub-strategy"
; SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
$oRest.SetAuthAws($oAuthAws)
; URL: https://migrationhub-strategy.us-west-2.amazonaws.com/
; Use the same region as specified above.
$bSuccess = $oRest.Connect("migrationhub-strategy.us-west-2.amazonaws.com",443,True,True)
If ($bSuccess <> True) Then
ConsoleWrite("ConnectFailReason: " & $oRest.ConnectFailReason & @CRLF)
ConsoleWrite($oRest.LastErrorText & @CRLF)
Exit
EndIf
; 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
$oJson = ObjCreate("Chilkat_9_5_0.JsonObject")
$oJson.UpdateString("filterValue","string")
$oJson.UpdateString("groupIdFilter[0].name","string")
$oJson.UpdateString("groupIdFilter[0].value","string")
$oJson.UpdateInt("maxResults",123)
$oJson.UpdateString("nextToken","string")
$oJson.UpdateString("serverCriteria","string")
$oJson.UpdateString("sort","string")
; The JSON request body created by the above code:
; {
; "filterValue": "string",
; "groupIdFilter": [
; {
; "name": "string",
; "value": "string"
; }
; ],
; "maxResults": number,
; "nextToken": "string",
; "serverCriteria": "string",
; "sort": "string"
; }
$oRest.AddHeader("Content-Type","application/x-amz-json-1.1")
$oRest.AddHeader("X-Amz-Target","ListServers")
$oSbRequestBody = ObjCreate("Chilkat_9_5_0.StringBuilder")
$oJson.EmitSb($oSbRequestBody)
$oSbResponseBody = ObjCreate("Chilkat_9_5_0.StringBuilder")
$bSuccess = $oRest.FullRequestSb("POST","/list-servers",$oSbRequestBody,$oSbResponseBody)
If ($bSuccess <> True) Then
ConsoleWrite($oRest.LastErrorText & @CRLF)
Exit
EndIf
Local $iRespStatusCode = $oRest.ResponseStatusCode
ConsoleWrite("response status code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode <> 200) Then
ConsoleWrite("Response Header:" & @CRLF)
ConsoleWrite($oRest.ResponseHeader & @CRLF)
ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oSbResponseBody.GetAsString() & @CRLF)
Exit
EndIf
$oJResp = ObjCreate("Chilkat_9_5_0.JsonObject")
$oJResp.LoadSb($oSbResponseBody)
; 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
Local $sS3Bucket
Local $sS3key
Local $sAntipatternReportStatus
Local $sAntipatternReportStatusMessage
Local $sDataCollectionStatus
Local $sId
Local $iLastAnalyzedTimestamp
Local $sName
Local $sStrategy
Local $sTargetDestination
Local $sDescription
Local $sName
Local $sTranformationToolInstallationLink
Local $serverType
Local $statusMessage
Local $sCpuArchitecture
Local $sFileSystemType
Local $sV_Type
Local $sVersion
Local $iJ
Local $iCount_j
Local $iCount
Local $strategy
Local $severity
Local $sInterfaceName
Local $sIpAddress
Local $sMacAddress
Local $sNetMask
Local $sNextToken = $oJResp.StringOf("nextToken")
Local $i = 0
Local $iCount_i = $oJResp.SizeOfArray("serverInfos")
While $i < $iCount_i
$oJResp.I = $i
$sS3Bucket = $oJResp.StringOf("serverInfos[i].antipatternReportS3Object.s3Bucket")
$sS3key = $oJResp.StringOf("serverInfos[i].antipatternReportS3Object.s3key")
$sAntipatternReportStatus = $oJResp.StringOf("serverInfos[i].antipatternReportStatus")
$sAntipatternReportStatusMessage = $oJResp.StringOf("serverInfos[i].antipatternReportStatusMessage")
$sDataCollectionStatus = $oJResp.StringOf("serverInfos[i].dataCollectionStatus")
$sId = $oJResp.StringOf("serverInfos[i].id")
$iLastAnalyzedTimestamp = $oJResp.IntOf("serverInfos[i].lastAnalyzedTimestamp")
$sName = $oJResp.StringOf("serverInfos[i].name")
$sStrategy = $oJResp.StringOf("serverInfos[i].recommendationSet.strategy")
$sTargetDestination = $oJResp.StringOf("serverInfos[i].recommendationSet.targetDestination")
$sDescription = $oJResp.StringOf("serverInfos[i].recommendationSet.transformationTool.description")
$sName = $oJResp.StringOf("serverInfos[i].recommendationSet.transformationTool.name")
$sTranformationToolInstallationLink = $oJResp.StringOf("serverInfos[i].recommendationSet.transformationTool.tranformationToolInstallationLink")
$serverType = $oJResp.StringOf("serverInfos[i].serverType")
$statusMessage = $oJResp.StringOf("serverInfos[i].statusMessage")
$sCpuArchitecture = $oJResp.StringOf("serverInfos[i].systemInfo.cpuArchitecture")
$sFileSystemType = $oJResp.StringOf("serverInfos[i].systemInfo.fileSystemType")
$sV_Type = $oJResp.StringOf("serverInfos[i].systemInfo.osInfo.type")
$sVersion = $oJResp.StringOf("serverInfos[i].systemInfo.osInfo.version")
$iJ = 0
$iCount_j = $oJResp.SizeOfArray("serverInfos[i].applicationComponentStrategySummary")
While $iJ < $iCount_j
$oJResp.J = $iJ
$iCount = $oJResp.IntOf("serverInfos[i].applicationComponentStrategySummary[j].count")
$strategy = $oJResp.StringOf("serverInfos[i].applicationComponentStrategySummary[j].strategy")
$iJ = $iJ + 1
Wend
$iJ = 0
$iCount_j = $oJResp.SizeOfArray("serverInfos[i].listAntipatternSeveritySummary")
While $iJ < $iCount_j
$oJResp.J = $iJ
$iCount = $oJResp.IntOf("serverInfos[i].listAntipatternSeveritySummary[j].count")
$severity = $oJResp.StringOf("serverInfos[i].listAntipatternSeveritySummary[j].severity")
$iJ = $iJ + 1
Wend
$iJ = 0
$iCount_j = $oJResp.SizeOfArray("serverInfos[i].systemInfo.networkInfoList")
While $iJ < $iCount_j
$oJResp.J = $iJ
$sInterfaceName = $oJResp.StringOf("serverInfos[i].systemInfo.networkInfoList[j].interfaceName")
$sIpAddress = $oJResp.StringOf("serverInfos[i].systemInfo.networkInfoList[j].ipAddress")
$sMacAddress = $oJResp.StringOf("serverInfos[i].systemInfo.networkInfoList[j].macAddress")
$sNetMask = $oJResp.StringOf("serverInfos[i].systemInfo.networkInfoList[j].netMask")
$iJ = $iJ + 1
Wend
$i = $i + 1
Wend
; A sample JSON response body parsed by the above code:
; {
; "nextToken": "string",
; "serverInfos": [
; {
; "antipatternReportS3Object": {
; "s3Bucket": "string",
; "s3key": "string"
; },
; "antipatternReportStatus": "string",
; "antipatternReportStatusMessage": "string",
; "applicationComponentStrategySummary": [
; {
; "count": number,
; "strategy": "string"
; }
; ],
; "dataCollectionStatus": "string",
; "id": "string",
; "lastAnalyzedTimestamp": number,
; "listAntipatternSeveritySummary": [
; {
; "count": number,
; "severity": "string"
; }
; ],
; "name": "string",
; "recommendationSet": {
; "strategy": "string",
; "targetDestination": "string",
; "transformationTool": {
; "description": "string",
; "name": "string",
; "tranformationToolInstallationLink": "string"
; }
; },
; "serverType": "string",
; "statusMessage": "string",
; "systemInfo": {
; "cpuArchitecture": "string",
; "fileSystemType": "string",
; "networkInfoList": [
; {
; "interfaceName": "string",
; "ipAddress": "string",
; "macAddress": "string",
; "netMask": "string"
; }
; ],
; "osInfo": {
; "type": "string",
; "version": "string"
; }
; }
; }
; ]
; }
