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

For more information, see https://duo.com/docs/authapi#/ping

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
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