How to create JSON object in .vbs file?
I have tried this:
set json = CreateObject("Scripting.Dictionary")
But this object is not supporting json.AddStringAt property. How to create JSON object that supports the json.AddStringAt?
My sample file is
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.json", True)
set json = CreateObject("Scripting.Dictionary")
index = -1
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