(AutoIt) Amazon Cognito - List User Pools

See more Amazon Cognito Examples

Lists the user pools associated with an AWS account.

For more information, see https://docs.aws.amazon.com/cognito-user-identity-pools/latest/APIReference/API_ListUserPools.html

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oRest = ObjCreate("Chilkat.Rest")
Local $bSuccess

$oAuthAws = ObjCreate("Chilkat.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 = "cognito-idp"
; SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
$oRest.SetAuthAws($oAuthAws)

; URL: https://cognito-idp.us-west-2.amazonaws.com/
Local $bTls = True
Local $iPort = 443
Local $bAutoReconnect = True
; Use the same region as specified above.
$bSuccess = $oRest.Connect("cognito-idp.us-west-2.amazonaws.com",$iPort,$bTls,$bAutoReconnect)
If ($bSuccess <> True) Then
    ConsoleWrite("ConnectFailReason: " & $oRest.ConnectFailReason & @CRLF)
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

; Note: The above code does not need to be repeatedly called for each REST request.
; The rest object can be setup once, and then many requests can be sent.  Chilkat will automatically
; reconnect within a FullRequest* method as needed.  It is only the very first connection that is explicitly
; made via the Connect method.

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.UpdateInt("MaxResults",60)

$oRest.AddHeader("Content-Type","application/x-amz-json-1.0")
$oRest.AddHeader("X-Amz-Target","AWSCognitoIdentityProviderService.ListUserPools")
$oRest.AddHeader("Accept-Encoding","identity")

$oSbRequestBody = ObjCreate("Chilkat.StringBuilder")
$oJson.EmitSb($oSbRequestBody)
$oSbResponseBody = ObjCreate("Chilkat.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 Status Code = " & $iRespStatusCode & @CRLF)
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oRest.ResponseHeader & @CRLF)
    ConsoleWrite("Response Body:" & @CRLF)
    ConsoleWrite($oSbResponseBody.GetAsString() & @CRLF)
    Exit
EndIf

$oJsonResponse = ObjCreate("Chilkat.JsonObject")
$oJsonResponse.LoadSb($oSbResponseBody)

$oJsonResponse.EmitCompact = False
ConsoleWrite($oJsonResponse.Emit() & @CRLF)

; Sample JSON response:
; (Sample code for parsing the JSON response is shown below)

; Use this online tool to generate parsing code from sample JSON: 
; Generate Parsing Code from JSON

; {
;   "UserPools": [
;     {
;       "CreationDate": 1.636388909817E9,
;       "Id": "us-west-2_yt6WzO3SA",
;       "LambdaConfig": {},
;       "LastModifiedDate": 1.636388910377E9,
;       "Name": "chilkat"
;     }
;   ]
; }

Local $sCreationDate
Local $sId
Local $sLastModifiedDate
Local $sName

Local $i = 0
Local $iCount_i = $oJsonResponse.SizeOfArray("UserPools")
While $i < $iCount_i
    $oJsonResponse.I = $i
    $sCreationDate = $oJsonResponse.StringOf("UserPools[i].CreationDate")
    $sId = $oJsonResponse.StringOf("UserPools[i].Id")
    $sLastModifiedDate = $oJsonResponse.StringOf("UserPools[i].LastModifiedDate")
    $sName = $oJsonResponse.StringOf("UserPools[i].Name")
    $i = $i + 1
Wend