(VBScript) Create JSON Document

Sample code to create the following JSON document:

{
  "Title": "Pan's Labyrinth",
  "Director": "Guillermo del Toro",
  "Original_Title": "El laberinto del fauno",
  "Year_Released": 2006
}

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)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")

' The only reason for failure in the following lines of code would be an out-of-memory condition..

' An index value of -1 is used to append at the end.
success = json.AddStringAt(-1,"Title","Pan's Labyrinth")
success = json.AddStringAt(-1,"Director","Guillermo del Toro")
success = json.AddStringAt(-1,"Original_Title","El laberinto del fauno")
success = json.AddIntAt(-1,"Year_Released",2006)

json.EmitCompact = 0
outFile.WriteLine(json.Emit())

outFile.Close