(AutoIt) 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 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

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

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

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

; {
;   "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 $sName
Local $sValue

Local $bUserEnabled = $oJsonResponse.BoolOf("User.Enabled")
Local $sUserUserCreateDate = $oJsonResponse.StringOf("User.UserCreateDate")
Local $sUserUserLastModifiedDate = $oJsonResponse.StringOf("User.UserLastModifiedDate")
Local $sUserUserStatus = $oJsonResponse.StringOf("User.UserStatus")
Local $sUserUsername = $oJsonResponse.StringOf("User.Username")
Local $i = 0
Local $iCount_i = $oJsonResponse.SizeOfArray("User.Attributes")
While $i < $iCount_i
    $oJsonResponse.I = $i
    $sName = $oJsonResponse.StringOf("User.Attributes[i].Name")
    $sValue = $oJsonResponse.StringOf("User.Attributes[i].Value")
    $i = $i + 1
Wend