VBScript

Duo Auth API - Ping

See more Duo Auth MFA Examples

The /ping endpoint acts as a "liveness check" that can be called to verify that Duo is up before trying to call other Auth API endpoints. 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.

set http = CreateObject("Chilkat.Http")

http.Accept = "application/json"

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

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": 1632358295}, "stat": "OK"

outFile.Close