VBScript

Download Full Intake Form in JSON Format

See more IntakeQ Examples

The full intake form is very similar to intake summary object, except it adds an array of questions. 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")

' 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.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.JsonObject")

success = json.LoadSb(sbJson)
json.EmitCompact = 1

outFile.WriteLine(json.Emit())

outFile.Close