Lua

Amazon Cognito - List Users

See more Amazon Cognito Examples

Lists the users in the Amazon Cognito user pool. Lua

local chilkat = require("chilkat")

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

local rest = chilkat.Rest.new()

local authAws = chilkat.AuthAws.new()
authAws.access_key = "AWS_ACCESS_KEY"
authAws.secret_key = "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.service_name = "cognito-idp"
-- SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
rest:set_auth_aws(authAws)

-- URL: https://cognito-idp.us-west-2.amazonaws.com/
local bTls = true
local port = 443
local bAutoReconnect = true
-- Use the same region as specified above.
local success = rest:connect("cognito-idp.us-west-2.amazonaws.com", port, bTls, bAutoReconnect)
if not success then
    print("ConnectFailReason: " .. rest.connect_fail_reason)
    print(rest.last_error_text)
    return
end

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

local json = chilkat.JsonObject.new()
json:update_string("UserPoolId", "us-west-2_yt6WzO3SA")

rest:add_header("Content-Type", "application/x-amz-json-1.0")
rest:add_header("X-Amz-Target", "AWSCognitoIdentityProviderService.ListUsers")
rest:add_header("Accept-Encoding", "identity")

local sbRequestBody = chilkat.StringBuilder.new()
json:emit_sb(sbRequestBody)
local sbResponseBody = chilkat.StringBuilder.new()
success = rest:full_request_sb("POST", "/", sbRequestBody, sbResponseBody)
if not success then
    print(rest.last_error_text)
    return
end

local respStatusCode = rest.response_status_code
print("response status code = " .. respStatusCode)
if respStatusCode ~= 200 then
    print("Response Status Code = " .. respStatusCode)
    print("Response Header:")
    print(rest.response_header)
    print("Response Body:")
    print(sbResponseBody:get_as_string())
    return
end

local jsonResponse = chilkat.JsonObject.new()
jsonResponse:load_sb(sbResponseBody)

jsonResponse.emit_compact = false
print(jsonResponse:emit())

-- 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 Enabled = false
local UserCreateDate = ""
local UserLastModifiedDate = ""
local UserStatus = ""
local Username = ""
local j = 0
local count_j = 0
local Name = ""
local Value = ""

local i = 0
local count_i = jsonResponse:size_of_array("Users")
while i < count_i do
    jsonResponse.i = i
    Enabled = jsonResponse:bool_of("Users[i].Enabled")
    UserCreateDate = jsonResponse:string_of("Users[i].UserCreateDate")
    UserLastModifiedDate = jsonResponse:string_of("Users[i].UserLastModifiedDate")
    UserStatus = jsonResponse:string_of("Users[i].UserStatus")
    Username = jsonResponse:string_of("Users[i].Username")
    j = 0
    count_j = jsonResponse:size_of_array("Users[i].Attributes")
    while j < count_j do
        jsonResponse.j = j
        Name = jsonResponse:string_of("Users[i].Attributes[j].Name")
        Value = jsonResponse:string_of("Users[i].Attributes[j].Value")
        j = j + 1
    end

    i = i + 1
end