(Lianja) Amazon Cognito - Admin Create User

See more Amazon Cognito Examples

Creates a new user in the specified user pool.

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loRest = createobject("CkRest")

loAuthAws = createobject("CkAuthAws")
loAuthAws.AccessKey = "AWS_ACCESS_KEY"
loAuthAws.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.)
loAuthAws.Region = "us-west-2"
loAuthAws.ServiceName = "cognito-idp"
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
loRest.SetAuthAws(loAuthAws)

// URL: https://cognito-idp.us-west-2.amazonaws.com/
llBTls = .T.
lnPort = 443
llBAutoReconnect = .T.
// Use the same region as specified above.
llSuccess = loRest.Connect("cognito-idp.us-west-2.amazonaws.com",lnPort,llBTls,llBAutoReconnect)
if (llSuccess <> .T.) then
    ? "ConnectFailReason: " + str(loRest.ConnectFailReason)
    ? loRest.LastErrorText
    release loRest
    release loAuthAws
    return
endif

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

loJson = createobject("CkJsonObject")
loJson.UpdateString("DesiredDeliveryMediums[0]","SMS")
loJson.UpdateString("DesiredDeliveryMediums[1]","EMAIL")
loJson.UpdateString("UserAttributes[0].Name","phone_number")
loJson.UpdateString("UserAttributes[0].Value","+16302581871")
loJson.UpdateString("UserAttributes[1].Name","email")
loJson.UpdateString("UserAttributes[1].Value","admin@chilkatsoft.com")
loJson.UpdateString("UserPoolId","us-west-2_yt6WzO3SA")
loJson.UpdateString("Username","Matt")

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

loSbRequestBody = createobject("CkStringBuilder")
loJson.EmitSb(loSbRequestBody)
loSbResponseBody = createobject("CkStringBuilder")
llSuccess = loRest.FullRequestSb("POST","/",loSbRequestBody,loSbResponseBody)
if (llSuccess <> .T.) then
    ? loRest.LastErrorText
    release loRest
    release loAuthAws
    release loJson
    release loSbRequestBody
    release loSbResponseBody
    return
endif

lnRespStatusCode = loRest.ResponseStatusCode
? "response status code = " + str(lnRespStatusCode)
if (lnRespStatusCode <> 200) then
    ? "Response Status Code = " + str(lnRespStatusCode)
    ? "Response Header:"
    ? loRest.ResponseHeader
    ? "Response Body:"
    ? loSbResponseBody.GetAsString()
    release loRest
    release loAuthAws
    release loJson
    release loSbRequestBody
    release loSbResponseBody
    return
endif

loJsonResponse = createobject("CkJsonObject")
loJsonResponse.LoadSb(loSbResponseBody)

loJsonResponse.EmitCompact = .F.
? loJsonResponse.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"
//   }
// }

llUserEnabled = loJsonResponse.BoolOf("User.Enabled")
lcUserUserCreateDate = loJsonResponse.StringOf("User.UserCreateDate")
lcUserUserLastModifiedDate = loJsonResponse.StringOf("User.UserLastModifiedDate")
lcUserUserStatus = loJsonResponse.StringOf("User.UserStatus")
lcUserUsername = loJsonResponse.StringOf("User.Username")
i = 0
lnCount_i = loJsonResponse.SizeOfArray("User.Attributes")
do while i < lnCount_i
    loJsonResponse.I = i
    lcName = loJsonResponse.StringOf("User.Attributes[i].Name")
    lcValue = loJsonResponse.StringOf("User.Attributes[i].Value")
    i = i + 1
enddo


release loRest
release loAuthAws
release loJson
release loSbRequestBody
release loSbResponseBody
release loJsonResponse