GetEC2InstanceRecommendations 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 = "compute-optimizer"
; SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
$oRest.SetAuthAws($oAuthAws)
; URL: https://compute-optimizer.us-west-2.amazonaws.com/
; Use the same region as specified above.
$bSuccess = $oRest.Connect("compute-optimizer.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("accountIds[0]","string")
$oJson.UpdateString("filters[0].name","string")
$oJson.UpdateString("filters[0].values[0]","string")
$oJson.UpdateString("instanceArns[0]","string")
$oJson.UpdateInt("maxResults",123)
$oJson.UpdateString("nextToken","string")
$oJson.UpdateString("recommendationPreferences.cpuVendorArchitectures[0]","string")
; The JSON request body created by the above code:
; {
; "accountIds": [
; "string"
; ],
; "filters": [
; {
; "name": "string",
; "values": [
; "string"
; ]
; }
; ],
; "instanceArns": [
; "string"
; ],
; "maxResults": number,
; "nextToken": "string",
; "recommendationPreferences": {
; "cpuVendorArchitectures": [
; "string"
; ]
; }
; }
$oRest.AddHeader("Content-Type","application/x-amz-json-1.0")
$oRest.AddHeader("X-Amz-Target","ComputeOptimizerService.GetEC2InstanceRecommendations")
$oSbRequestBody = ObjCreate("Chilkat_9_5_0.StringBuilder")
$oJson.EmitSb($oSbRequestBody)
$oSbResponseBody = ObjCreate("Chilkat_9_5_0.StringBuilder")
$bSuccess = $oRest.FullRequestSb("POST","/",$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 $sCode
Local $sIdentifier
Local $sMessage
Local $sAccountId
Local $sCurrentInstanceType
Local $sCurrentPerformanceRisk
Local $sEnhancedInfrastructureMetrics
Local $sInferredWorkloadTypes
Local $sFinding
Local $sInstanceArn
Local $sInstanceName
Local $iLastRefreshTimestamp
Local $iLookBackPeriodInDays
Local $iJ
Local $iCount_j
Local $strVal
Local $sInstanceType
Local $sMigrationEffort
Local $iPerformanceRisk
Local $iRank
Local $sV_Currency
Local $iValue
Local $iSavingsOpportunityPercentage
Local $iK
Local $iCount_k
Local $sName
Local $statistic
Local $iValue
Local $sRecommendationSourceArn
Local $sRecommendationSourceType
Local $sNextToken = $oJResp.StringOf("nextToken")
Local $i = 0
Local $iCount_i = $oJResp.SizeOfArray("errors")
While $i < $iCount_i
$oJResp.I = $i
$sCode = $oJResp.StringOf("errors[i].code")
$sIdentifier = $oJResp.StringOf("errors[i].identifier")
$sMessage = $oJResp.StringOf("errors[i].message")
$i = $i + 1
Wend
$i = 0
$iCount_i = $oJResp.SizeOfArray("instanceRecommendations")
While $i < $iCount_i
$oJResp.I = $i
$sAccountId = $oJResp.StringOf("instanceRecommendations[i].accountId")
$sCurrentInstanceType = $oJResp.StringOf("instanceRecommendations[i].currentInstanceType")
$sCurrentPerformanceRisk = $oJResp.StringOf("instanceRecommendations[i].currentPerformanceRisk")
$sEnhancedInfrastructureMetrics = $oJResp.StringOf("instanceRecommendations[i].effectiveRecommendationPreferences.enhancedInfrastructureMetrics")
$sInferredWorkloadTypes = $oJResp.StringOf("instanceRecommendations[i].effectiveRecommendationPreferences.inferredWorkloadTypes")
$sFinding = $oJResp.StringOf("instanceRecommendations[i].finding")
$sInstanceArn = $oJResp.StringOf("instanceRecommendations[i].instanceArn")
$sInstanceName = $oJResp.StringOf("instanceRecommendations[i].instanceName")
$iLastRefreshTimestamp = $oJResp.IntOf("instanceRecommendations[i].lastRefreshTimestamp")
$iLookBackPeriodInDays = $oJResp.IntOf("instanceRecommendations[i].lookBackPeriodInDays")
$iJ = 0
$iCount_j = $oJResp.SizeOfArray("instanceRecommendations[i].effectiveRecommendationPreferences.cpuVendorArchitectures")
While $iJ < $iCount_j
$oJResp.J = $iJ
$strVal = $oJResp.StringOf("instanceRecommendations[i].effectiveRecommendationPreferences.cpuVendorArchitectures[j]")
$iJ = $iJ + 1
Wend
$iJ = 0
$iCount_j = $oJResp.SizeOfArray("instanceRecommendations[i].findingReasonCodes")
While $iJ < $iCount_j
$oJResp.J = $iJ
$strVal = $oJResp.StringOf("instanceRecommendations[i].findingReasonCodes[j]")
$iJ = $iJ + 1
Wend
$iJ = 0
$iCount_j = $oJResp.SizeOfArray("instanceRecommendations[i].inferredWorkloadTypes")
While $iJ < $iCount_j
$oJResp.J = $iJ
$strVal = $oJResp.StringOf("instanceRecommendations[i].inferredWorkloadTypes[j]")
$iJ = $iJ + 1
Wend
$iJ = 0
$iCount_j = $oJResp.SizeOfArray("instanceRecommendations[i].recommendationOptions")
While $iJ < $iCount_j
$oJResp.J = $iJ
$sInstanceType = $oJResp.StringOf("instanceRecommendations[i].recommendationOptions[j].instanceType")
$sMigrationEffort = $oJResp.StringOf("instanceRecommendations[i].recommendationOptions[j].migrationEffort")
$iPerformanceRisk = $oJResp.IntOf("instanceRecommendations[i].recommendationOptions[j].performanceRisk")
$iRank = $oJResp.IntOf("instanceRecommendations[i].recommendationOptions[j].rank")
$sV_Currency = $oJResp.StringOf("instanceRecommendations[i].recommendationOptions[j].savingsOpportunity.estimatedMonthlySavings.currency")
$iValue = $oJResp.IntOf("instanceRecommendations[i].recommendationOptions[j].savingsOpportunity.estimatedMonthlySavings.value")
$iSavingsOpportunityPercentage = $oJResp.IntOf("instanceRecommendations[i].recommendationOptions[j].savingsOpportunity.savingsOpportunityPercentage")
$iK = 0
$iCount_k = $oJResp.SizeOfArray("instanceRecommendations[i].recommendationOptions[j].platformDifferences")
While $iK < $iCount_k
$oJResp.K = $iK
$strVal = $oJResp.StringOf("instanceRecommendations[i].recommendationOptions[j].platformDifferences[k]")
$iK = $iK + 1
Wend
$iK = 0
$iCount_k = $oJResp.SizeOfArray("instanceRecommendations[i].recommendationOptions[j].projectedUtilizationMetrics")
While $iK < $iCount_k
$oJResp.K = $iK
$sName = $oJResp.StringOf("instanceRecommendations[i].recommendationOptions[j].projectedUtilizationMetrics[k].name")
$statistic = $oJResp.StringOf("instanceRecommendations[i].recommendationOptions[j].projectedUtilizationMetrics[k].statistic")
$iValue = $oJResp.IntOf("instanceRecommendations[i].recommendationOptions[j].projectedUtilizationMetrics[k].value")
$iK = $iK + 1
Wend
$iJ = $iJ + 1
Wend
$iJ = 0
$iCount_j = $oJResp.SizeOfArray("instanceRecommendations[i].recommendationSources")
While $iJ < $iCount_j
$oJResp.J = $iJ
$sRecommendationSourceArn = $oJResp.StringOf("instanceRecommendations[i].recommendationSources[j].recommendationSourceArn")
$sRecommendationSourceType = $oJResp.StringOf("instanceRecommendations[i].recommendationSources[j].recommendationSourceType")
$iJ = $iJ + 1
Wend
$iJ = 0
$iCount_j = $oJResp.SizeOfArray("instanceRecommendations[i].utilizationMetrics")
While $iJ < $iCount_j
$oJResp.J = $iJ
$sName = $oJResp.StringOf("instanceRecommendations[i].utilizationMetrics[j].name")
$statistic = $oJResp.StringOf("instanceRecommendations[i].utilizationMetrics[j].statistic")
$iValue = $oJResp.IntOf("instanceRecommendations[i].utilizationMetrics[j].value")
$iJ = $iJ + 1
Wend
$i = $i + 1
Wend
; A sample JSON response body parsed by the above code:
; {
; "errors": [
; {
; "code": "string",
; "identifier": "string",
; "message": "string"
; }
; ],
; "instanceRecommendations": [
; {
; "accountId": "string",
; "currentInstanceType": "string",
; "currentPerformanceRisk": "string",
; "effectiveRecommendationPreferences": {
; "cpuVendorArchitectures": [
; "string"
; ],
; "enhancedInfrastructureMetrics": "string",
; "inferredWorkloadTypes": "string"
; },
; "finding": "string",
; "findingReasonCodes": [
; "string"
; ],
; "inferredWorkloadTypes": [
; "string"
; ],
; "instanceArn": "string",
; "instanceName": "string",
; "lastRefreshTimestamp": number,
; "lookBackPeriodInDays": number,
; "recommendationOptions": [
; {
; "instanceType": "string",
; "migrationEffort": "string",
; "performanceRisk": number,
; "platformDifferences": [
; "string"
; ],
; "projectedUtilizationMetrics": [
; {
; "name": "string",
; "statistic": "string",
; "value": number
; }
; ],
; "rank": number,
; "savingsOpportunity": {
; "estimatedMonthlySavings": {
; "currency": "string",
; "value": number
; },
; "savingsOpportunityPercentage": number
; }
; }
; ],
; "recommendationSources": [
; {
; "recommendationSourceArn": "string",
; "recommendationSourceType": "string"
; }
; ],
; "utilizationMetrics": [
; {
; "name": "string",
; "statistic": "string",
; "value": number
; }
; ]
; }
; ],
; "nextToken": "string"
; }
