Visual Basic 6.0

Duo Auth API - Check

See more Duo Auth MFA Examples

The /check endpoint can be called to verify that the Auth API integration and secret keys are valid, and that the signature is being generated properly. Visual Basic 6.0

Dim success As Long
success = 0

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

Dim integrationKey As String
integrationKey = "DIMS3V5QDVG9J9ABRXC4"
Dim secretKey As String
secretKey = "HWVQ46nubLBxhnRlKddTltWIi3hL0fIQF2qTvLab"

Dim http As New ChilkatHttp

http.Accept = "application/json"

' Use your own hostname here:
Dim url As String
url = "https://api-a03782e1.duosecurity.com/auth/v2/check"

http.Login = integrationKey
http.Password = secretKey

Dim jsonStr As String
jsonStr = http.QuickGetStr(url)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print "status code = " & http.LastStatus
Debug.Print jsonStr

' Sample successful output:

' status code = 200
' {"response": {"time": 1632358829}, "stat": "OK"}