VBScript

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. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

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

integrationKey = "DIMS3V5QDVG9J9ABRXC4"
secretKey = "HWVQ46nubLBxhnRlKddTltWIi3hL0fIQF2qTvLab"

set http = CreateObject("Chilkat.Http")

http.Accept = "application/json"

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

http.Login = integrationKey
http.Password = secretKey

jsonStr = http.QuickGetStr(url)
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("status code = " & http.LastStatus)
outFile.WriteLine(jsonStr)

' Sample successful output:

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

outFile.Close