(AutoIt) Amazon Cognito - List Users

See more Amazon Cognito Examples

Lists the users in the Amazon Cognito user pool.

For more information, see https://docs.aws.amazon.com/cognito-user-identity-pools/latest/APIReference/API_ListUsers.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.

; The following JSON is sent in the request body.

; {
;     "UserPoolId": "us-west-2_yt6WzO3SA"
; }
; 

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.UpdateString("UserPoolId","us-west-2_yt6WzO3SA")

$oRest.AddHeader("Content-Type","application/x-amz-json-1.0")
$oRest.AddHeader("X-Amz-Target","AWSCognitoIdentityProviderService.ListUsers")
$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

; {
;   "Users": [
;     {
;       "Attributes": [
;         {
;           "Name": "sub",
;           "Value": "1874cf28-00d3-4ac1-a24a-68dcb0cecf09"
;         },
;         {
;           "Name": "email_verified",
;           "Value": "true"
;         },
;         {
;           "Name": "phone_number_verified",
;           "Value": "true"
;         },
;         {
;           "Name": "phone_number",
;           "Value": "+16302581871"
;         },
;         {
;           "Name": "email",
;           "Value": "admin@chilkatsoft.com"
;         }
;       ],
;       "Enabled": true,
;       "UserCreateDate": 1.636404386657E9,
;       "UserLastModifiedDate": 1.636404386657E9,
;       "UserStatus": "FORCE_CHANGE_PASSWORD",
;       "Username": "matt"
;     },
;     {
; 	. . .
;     }
;   ]
; }

Local $bEnabled
Local $sUserCreateDate
Local $sUserLastModifiedDate
Local $sUserStatus
Local $sUsername
Local $iJ
Local $iCount_j
Local $sName
Local $sValue

Local $i = 0
Local $iCount_i = $oJsonResponse.SizeOfArray("Users")
While $i < $iCount_i
    $oJsonResponse.I = $i
    $bEnabled = $oJsonResponse.BoolOf("Users[i].Enabled")
    $sUserCreateDate = $oJsonResponse.StringOf("Users[i].UserCreateDate")
    $sUserLastModifiedDate = $oJsonResponse.StringOf("Users[i].UserLastModifiedDate")
    $sUserStatus = $oJsonResponse.StringOf("Users[i].UserStatus")
    $sUsername = $oJsonResponse.StringOf("Users[i].Username")
    $iJ = 0
    $iCount_j = $oJsonResponse.SizeOfArray("Users[i].Attributes")
    While $iJ < $iCount_j
        $oJsonResponse.J = $iJ
        $sName = $oJsonResponse.StringOf("Users[i].Attributes[j].Name")
        $sValue = $oJsonResponse.StringOf("Users[i].Attributes[j].Value")
        $iJ = $iJ + 1
    Wend
    $i = $i + 1
Wend