Lua

Amazon Cognito - Admin Create User

See more Amazon Cognito Examples

Creates a new user in the specified 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

-- Use this online tool to generate code from sample JSON:
-- Generate Code to Create JSON

-- The following JSON is sent in the request body.

-- {
--     "DesiredDeliveryMediums" : [ "SMS", "EMAIL" ],
--     "UserAttributes": [
--          {
--            "Name": "phone_number",
--            "Value": "+16302581871"
--          },
--          {
--            "Name": "email",
--            "Value": "admin@chilkatsoft.com"
--          }
--        ],
--      "UserPoolId": "us-west-2_yt6WzO3SA",
--      "Username": "Matt"
-- }
--

local json = chilkat.JsonObject.new()
json:update_string("DesiredDeliveryMediums[0]", "SMS")
json:update_string("DesiredDeliveryMediums[1]", "EMAIL")
json:update_string("UserAttributes[0].Name", "phone_number")
json:update_string("UserAttributes[0].Value", "+16302581871")
json:update_string("UserAttributes[1].Name", "email")
json:update_string("UserAttributes[1].Value", "admin@chilkatsoft.com")
json:update_string("UserPoolId", "us-west-2_yt6WzO3SA")
json:update_string("Username", "Matt")

rest:add_header("Content-Type", "application/x-amz-json-1.0")
rest:add_header("X-Amz-Target", "AWSCognitoIdentityProviderService.AdminCreateUser")
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

-- {
--   "User": {
--     "Attributes": [
--       {
--         "Name": "sub",
--         "Value": "dcd3db0c-32cf-4a33-a6b2-173653f7c0e7"
--       },
--       {
--         "Name": "phone_number",
--         "Value": "+16302581871"
--       },
--       {
--         "Name": "email",
--         "Value": "admin@chilkatsoft.com"
--       }
--     ],
--     "Enabled": true,
--     "UserCreateDate": 1.636407153801E9,
--     "UserLastModifiedDate": 1.636407153801E9,
--     "UserStatus": "FORCE_CHANGE_PASSWORD",
--     "Username": "matt"
--   }
-- }

local Name = ""
local Value = ""

local UserEnabled = jsonResponse:bool_of("User.Enabled")
local UserUserCreateDate = jsonResponse:string_of("User.UserCreateDate")
local UserUserLastModifiedDate = jsonResponse:string_of("User.UserLastModifiedDate")
local UserUserStatus = jsonResponse:string_of("User.UserStatus")
local UserUsername = jsonResponse:string_of("User.Username")
local i = 0
local count_i = jsonResponse:size_of_array("User.Attributes")
while i < count_i do
    jsonResponse.i = i
    Name = jsonResponse:string_of("User.Attributes[i].Name")
    Value = jsonResponse:string_of("User.Attributes[i].Value")
    i = i + 1
end