(VBScript) Download Full Intake Form in JSON Format
The full intake form is very similar to intake summary object, except it adds an array of questions. For more information, see https://support.intakeq.com/article/31-intakeq-api#download-intake
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
set http = CreateObject("Chilkat_9_5_0.Http")
' To log the exact HTTP request/response to a session log file:
http.SessionLogFilename = "/someDir/sessionLog.txt"
http.SetRequestHeader "X-Auth-Key","xxxxxxxxxxxxxxxxxxxxxxxxx"
set sbJson = CreateObject("Chilkat_9_5_0.StringBuilder")
success = http.QuickGetSb("https://intakeq.com/api/v1/intakes/[intake-id]",sbJson)
If (success = 0) Then
outFile.WriteLine(http.LastErrorText)
WScript.Quit
End If
If (http.LastStatus <> 200) Then
outFile.WriteLine("status code: " & http.LastStatus)
outFile.WriteLine("response: " & sbJson.GetAsString())
WScript.Quit
End If
outFile.WriteLine("raw response: ")
outFile.WriteLine(sbJson.GetAsString())
set json = CreateObject("Chilkat_9_5_0.JsonObject")
success = json.LoadSb(sbJson)
json.EmitCompact = 1
outFile.WriteLine(json.Emit())
outFile.Close
|