Visual Basic 6.0
Visual Basic 6.0
Amazon Cognito - Create User Pool
See more Amazon Cognito Examples
Creates a new Amazon Cognito user pool and sets the password policy for the pool.Chilkat Visual Basic 6.0 Downloads
Dim success As Long
success = 0
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim rest As New ChilkatRest
Dim authAws As New ChilkatAuthAws
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 Long
bTls = 1
Dim port As Long
port = 443
Dim bAutoReconnect As Long
bAutoReconnect = 1
' Use the same region as specified above.
success = rest.Connect("cognito-idp.us-west-2.amazonaws.com",port,bTls,bAutoReconnect)
If (success <> 1) Then
Debug.Print "ConnectFailReason: " & rest.ConnectFailReason
Debug.Print rest.LastErrorText
Exit Sub
End If
' 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.
' Use this online tool to generate code from sample JSON:
' Generate Code to Create JSON
' The following JSON is sent in the request body.
' This example wil demonstrate creating a pool with many options specified.
' The only required JSON member is "PoolName".
' {
' "AccountRecoverySetting": {
' "RecoveryMechanisms": [
' {
' "Name": "verified_phone_number",
' "Priority": 1
' },
' {
' "Name": "verified_email",
' "Priority": 2
' }
' ]
' },
' "AdminCreateUserConfig": {
' "AllowAdminCreateUserOnly": false,
' "InviteMessageTemplate": {
' "EmailMessage": "Your username is {username} and temporary password is {####}. ",
' "EmailSubject": "Your temporary password",
' "SMSMessage": "Your username is {username} and temporary password is {####}. "
' },
' "TemporaryPasswordValidityDays": 7
' },
' "AutoVerifiedAttributes": [
' "email",
' "phone_number"
' ],
' "EmailConfiguration": {
' "EmailSendingAccount": "DEVELOPER",
' "From": "joe@example.com",
' "ReplyToEmailAddress": "joe@example.com",
' "SourceArn": "arn:aws:ses:us-west-2:954491834127:identity/joe@example.com"
' },
' "EmailVerificationMessage": "Your verification code is {####}. ",
' "EmailVerificationSubject": "Your verification code",
' "LambdaConfig": {},
' "MfaConfiguration": "OFF",
' "PoolName": "MyTestPool",
' "Policies": {
' "PasswordPolicy": {
' "MinimumLength": 8,
' "RequireLowercase": true,
' "RequireNumbers": true,
' "RequireSymbols": true,
' "RequireUppercase": true,
' "TemporaryPasswordValidityDays": 7
' }
' },
' "Schema": [
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": false,
' "Name": "sub",
' "Required": true,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "1"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "name",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "given_name",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "family_name",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "middle_name",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "nickname",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "preferred_username",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "profile",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "picture",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "website",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "email",
' "Required": true,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "Boolean",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "email_verified",
' "Required": false
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "gender",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "birthdate",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "10",
' "MinLength": "10"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "zoneinfo",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "locale",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "phone_number",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "String",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "address",
' "Required": false,
' "StringAttributeConstraints": {
' "MaxLength": "2048",
' "MinLength": "0"
' }
' },
' {
' "AttributeDataType": "Number",
' "DeveloperOnlyAttribute": false,
' "Mutable": true,
' "Name": "updated_at",
' "NumberAttributeConstraints": {
' "MinValue": "0"
' },
' "Required": false
' }
' ],
' "SmsAuthenticationMessage": "Your verification code is {####}. ",
' "SmsConfiguration": {
' "ExternalId": "94b17737-216b-4cf7-a29e-17e990e91300",
' "SnsCallerArn": "arn:aws:iam::954491834127:role/service-role/chilkat-SMS-Role"
' },
' "SmsVerificationMessage": "Your verification code is {####}. ",
' "UsernameConfiguration": {
' "CaseSensitive": false
' },
' "VerificationMessageTemplate": {
' "DefaultEmailOption": "CONFIRM_WITH_CODE",
' "EmailMessage": "Your verification code is {####}. ",
' "EmailSubject": "Your verification code",
' "SmsMessage": "Your verification code is {####}. "
' }
' }
'
Dim json As New ChilkatJsonObject
success = json.UpdateString("AccountRecoverySetting.RecoveryMechanisms[0].Name","verified_phone_number")
success = json.UpdateInt("AccountRecoverySetting.RecoveryMechanisms[0].Priority",1)
success = json.UpdateString("AccountRecoverySetting.RecoveryMechanisms[1].Name","verified_email")
success = json.UpdateInt("AccountRecoverySetting.RecoveryMechanisms[1].Priority",2)
success = json.UpdateBool("AdminCreateUserConfig.AllowAdminCreateUserOnly",0)
success = json.UpdateString("AdminCreateUserConfig.InviteMessageTemplate.EmailMessage","Your username is {username} and temporary password is {####}. ")
success = json.UpdateString("AdminCreateUserConfig.InviteMessageTemplate.EmailSubject","Your temporary password")
success = json.UpdateString("AdminCreateUserConfig.InviteMessageTemplate.SMSMessage","Your username is {username} and temporary password is {####}. ")
success = json.UpdateInt("AdminCreateUserConfig.TemporaryPasswordValidityDays",7)
success = json.UpdateString("AutoVerifiedAttributes[0]","email")
success = json.UpdateString("AutoVerifiedAttributes[1]","phone_number")
success = json.UpdateString("EmailConfiguration.EmailSendingAccount","DEVELOPER")
success = json.UpdateString("EmailConfiguration.From","joe@example.com")
success = json.UpdateString("EmailConfiguration.ReplyToEmailAddress","joe@example.com")
success = json.UpdateString("EmailConfiguration.SourceArn","arn:aws:ses:us-west-2:954491834127:identity/joe@example.com")
success = json.UpdateString("EmailVerificationMessage","Your verification code is {####}. ")
success = json.UpdateString("EmailVerificationSubject","Your verification code")
success = json.UpdateNewObject("LambdaConfig")
success = json.UpdateString("MfaConfiguration","OFF")
success = json.UpdateString("PoolName","MyTestPool")
success = json.UpdateInt("Policies.PasswordPolicy.MinimumLength",8)
success = json.UpdateBool("Policies.PasswordPolicy.RequireLowercase",1)
success = json.UpdateBool("Policies.PasswordPolicy.RequireNumbers",1)
success = json.UpdateBool("Policies.PasswordPolicy.RequireSymbols",1)
success = json.UpdateBool("Policies.PasswordPolicy.RequireUppercase",1)
success = json.UpdateInt("Policies.PasswordPolicy.TemporaryPasswordValidityDays",7)
success = json.UpdateString("Schema[0].AttributeDataType","String")
success = json.UpdateBool("Schema[0].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[0].Mutable",0)
success = json.UpdateString("Schema[0].Name","sub")
success = json.UpdateBool("Schema[0].Required",1)
success = json.UpdateString("Schema[0].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[0].StringAttributeConstraints.MinLength","1")
success = json.UpdateString("Schema[1].AttributeDataType","String")
success = json.UpdateBool("Schema[1].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[1].Mutable",1)
success = json.UpdateString("Schema[1].Name","name")
success = json.UpdateBool("Schema[1].Required",0)
success = json.UpdateString("Schema[1].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[1].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[2].AttributeDataType","String")
success = json.UpdateBool("Schema[2].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[2].Mutable",1)
success = json.UpdateString("Schema[2].Name","given_name")
success = json.UpdateBool("Schema[2].Required",0)
success = json.UpdateString("Schema[2].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[2].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[3].AttributeDataType","String")
success = json.UpdateBool("Schema[3].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[3].Mutable",1)
success = json.UpdateString("Schema[3].Name","family_name")
success = json.UpdateBool("Schema[3].Required",0)
success = json.UpdateString("Schema[3].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[3].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[4].AttributeDataType","String")
success = json.UpdateBool("Schema[4].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[4].Mutable",1)
success = json.UpdateString("Schema[4].Name","middle_name")
success = json.UpdateBool("Schema[4].Required",0)
success = json.UpdateString("Schema[4].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[4].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[5].AttributeDataType","String")
success = json.UpdateBool("Schema[5].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[5].Mutable",1)
success = json.UpdateString("Schema[5].Name","nickname")
success = json.UpdateBool("Schema[5].Required",0)
success = json.UpdateString("Schema[5].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[5].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[6].AttributeDataType","String")
success = json.UpdateBool("Schema[6].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[6].Mutable",1)
success = json.UpdateString("Schema[6].Name","preferred_username")
success = json.UpdateBool("Schema[6].Required",0)
success = json.UpdateString("Schema[6].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[6].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[7].AttributeDataType","String")
success = json.UpdateBool("Schema[7].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[7].Mutable",1)
success = json.UpdateString("Schema[7].Name","profile")
success = json.UpdateBool("Schema[7].Required",0)
success = json.UpdateString("Schema[7].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[7].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[8].AttributeDataType","String")
success = json.UpdateBool("Schema[8].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[8].Mutable",1)
success = json.UpdateString("Schema[8].Name","picture")
success = json.UpdateBool("Schema[8].Required",0)
success = json.UpdateString("Schema[8].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[8].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[9].AttributeDataType","String")
success = json.UpdateBool("Schema[9].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[9].Mutable",1)
success = json.UpdateString("Schema[9].Name","website")
success = json.UpdateBool("Schema[9].Required",0)
success = json.UpdateString("Schema[9].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[9].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[10].AttributeDataType","String")
success = json.UpdateBool("Schema[10].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[10].Mutable",1)
success = json.UpdateString("Schema[10].Name","email")
success = json.UpdateBool("Schema[10].Required",1)
success = json.UpdateString("Schema[10].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[10].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[11].AttributeDataType","Boolean")
success = json.UpdateBool("Schema[11].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[11].Mutable",1)
success = json.UpdateString("Schema[11].Name","email_verified")
success = json.UpdateBool("Schema[11].Required",0)
success = json.UpdateString("Schema[12].AttributeDataType","String")
success = json.UpdateBool("Schema[12].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[12].Mutable",1)
success = json.UpdateString("Schema[12].Name","gender")
success = json.UpdateBool("Schema[12].Required",0)
success = json.UpdateString("Schema[12].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[12].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[13].AttributeDataType","String")
success = json.UpdateBool("Schema[13].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[13].Mutable",1)
success = json.UpdateString("Schema[13].Name","birthdate")
success = json.UpdateBool("Schema[13].Required",0)
success = json.UpdateString("Schema[13].StringAttributeConstraints.MaxLength","10")
success = json.UpdateString("Schema[13].StringAttributeConstraints.MinLength","10")
success = json.UpdateString("Schema[14].AttributeDataType","String")
success = json.UpdateBool("Schema[14].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[14].Mutable",1)
success = json.UpdateString("Schema[14].Name","zoneinfo")
success = json.UpdateBool("Schema[14].Required",0)
success = json.UpdateString("Schema[14].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[14].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[15].AttributeDataType","String")
success = json.UpdateBool("Schema[15].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[15].Mutable",1)
success = json.UpdateString("Schema[15].Name","locale")
success = json.UpdateBool("Schema[15].Required",0)
success = json.UpdateString("Schema[15].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[15].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[16].AttributeDataType","String")
success = json.UpdateBool("Schema[16].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[16].Mutable",1)
success = json.UpdateString("Schema[16].Name","phone_number")
success = json.UpdateBool("Schema[16].Required",0)
success = json.UpdateString("Schema[16].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[16].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[17].AttributeDataType","String")
success = json.UpdateBool("Schema[17].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[17].Mutable",1)
success = json.UpdateString("Schema[17].Name","address")
success = json.UpdateBool("Schema[17].Required",0)
success = json.UpdateString("Schema[17].StringAttributeConstraints.MaxLength","2048")
success = json.UpdateString("Schema[17].StringAttributeConstraints.MinLength","0")
success = json.UpdateString("Schema[18].AttributeDataType","Number")
success = json.UpdateBool("Schema[18].DeveloperOnlyAttribute",0)
success = json.UpdateBool("Schema[18].Mutable",1)
success = json.UpdateString("Schema[18].Name","updated_at")
success = json.UpdateString("Schema[18].NumberAttributeConstraints.MinValue","0")
success = json.UpdateBool("Schema[18].Required",0)
success = json.UpdateString("SmsAuthenticationMessage","Your verification code is {####}. ")
' Use your own value here:
success = json.UpdateString("SmsConfiguration.ExternalId","94b17737-216b-4cf7-a29e-17e990e91300")
success = json.UpdateString("SmsConfiguration.SnsCallerArn","arn:aws:iam::954491834127:role/service-role/chilkat-SMS-Role")
success = json.UpdateString("SmsVerificationMessage","Your verification code is {####}. ")
success = json.UpdateBool("UsernameConfiguration.CaseSensitive",0)
success = json.UpdateString("VerificationMessageTemplate.DefaultEmailOption","CONFIRM_WITH_CODE")
success = json.UpdateString("VerificationMessageTemplate.EmailMessage","Your verification code is {####}. ")
success = json.UpdateString("VerificationMessageTemplate.EmailSubject","Your verification code")
success = json.UpdateString("VerificationMessageTemplate.SmsMessage","Your verification code is {####}. ")
success = rest.AddHeader("Content-Type","application/x-amz-json-1.0")
success = rest.AddHeader("X-Amz-Target","AWSCognitoIdentityProviderService.CreateUserPool")
success = rest.AddHeader("Accept-Encoding","identity")
Dim sbRequestBody As New ChilkatStringBuilder
success = json.EmitSb(sbRequestBody)
Dim sbResponseBody As New ChilkatStringBuilder
success = rest.FullRequestSb("POST","/",sbRequestBody,sbResponseBody)
If (success <> 1) Then
Debug.Print rest.LastErrorText
Exit Sub
End If
Dim respStatusCode As Long
respStatusCode = rest.ResponseStatusCode
Debug.Print "response status code = " & respStatusCode
If (respStatusCode <> 200) Then
Debug.Print "Response Status Code = " & respStatusCode
Debug.Print "Response Header:"
Debug.Print rest.ResponseHeader
Debug.Print "Response Body:"
Debug.Print sbResponseBody.GetAsString()
Exit Sub
End If
Dim jsonResponse As New ChilkatJsonObject
success = jsonResponse.LoadSb(sbResponseBody)
jsonResponse.EmitCompact = 0
Debug.Print jsonResponse.Emit()
' The response is similar to the response at Cognito Describe User Pool