(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim rest As New Chilkat.Rest
Dim success As Boolean

Dim authAws As New Chilkat.AuthAws
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.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.)
authAws.Region = "us-west-2"
authAws.ServiceName = "cognito-idp"
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
success = rest.SetAuthAws(authAws)

// URL: https://cognito-idp.us-west-2.amazonaws.com/
Dim bTls As Boolean
bTls = True
Dim port As Int32
port = 443
Dim bAutoReconnect As Boolean
bAutoReconnect = True
// Use the same region as specified above.
success = rest.Connect("cognito-idp.us-west-2.amazonaws.com",port,bTls,bAutoReconnect)
If (success <> True) Then
    System.DebugLog("ConnectFailReason: " + Str(rest.ConnectFailReason))
    System.DebugLog(rest.LastErrorText)
    Return
End If

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

Dim json As New Chilkat.JsonObject
success = json.UpdateString("DesiredDeliveryMediums[0]","SMS")
success = json.UpdateString("DesiredDeliveryMediums[1]","EMAIL")
success = json.UpdateString("UserAttributes[0].Name","phone_number")
success = json.UpdateString("UserAttributes[0].Value","+16302581871")
success = json.UpdateString("UserAttributes[1].Name","email")
success = json.UpdateString("UserAttributes[1].Value","admin@chilkatsoft.com")
success = json.UpdateString("UserPoolId","us-west-2_yt6WzO3SA")
success = json.UpdateString("Username","Matt")

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

Dim sbRequestBody As New Chilkat.StringBuilder
success = json.EmitSb(sbRequestBody)
Dim sbResponseBody As New Chilkat.StringBuilder
success = rest.FullRequestSb("POST","/",sbRequestBody,sbResponseBody)
If (success <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

Dim respStatusCode As Int32
respStatusCode = rest.ResponseStatusCode
System.DebugLog("response status code = " + Str(respStatusCode))
If (respStatusCode <> 200) Then
    System.DebugLog("Response Status Code = " + Str(respStatusCode))
    System.DebugLog("Response Header:")
    System.DebugLog(rest.ResponseHeader)
    System.DebugLog("Response Body:")
    System.DebugLog(sbResponseBody.GetAsString())
    Return
End If

Dim jsonResponse As New Chilkat.JsonObject
success = jsonResponse.LoadSb(sbResponseBody)

jsonResponse.EmitCompact = False
System.DebugLog(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"
//   }
// }

Dim Name As String
Dim Value As String

Dim UserEnabled As Boolean
UserEnabled = jsonResponse.BoolOf("User.Enabled")
Dim UserUserCreateDate As String
UserUserCreateDate = jsonResponse.StringOf("User.UserCreateDate")
Dim UserUserLastModifiedDate As String
UserUserLastModifiedDate = jsonResponse.StringOf("User.UserLastModifiedDate")
Dim UserUserStatus As String
UserUserStatus = jsonResponse.StringOf("User.UserStatus")
Dim UserUsername As String
UserUsername = jsonResponse.StringOf("User.Username")
Dim i As Int32
i = 0
Dim count_i As Int32
count_i = jsonResponse.SizeOfArray("User.Attributes")
While i < count_i
    jsonResponse.I = i
    Name = jsonResponse.StringOf("User.Attributes[i].Name")
    Value = jsonResponse.StringOf("User.Attributes[i].Value")
    i = i + 1
Wend