Как создать json-объект в файле vbscript?

Question

Как создать объект JSON в файле .vbs?

Я попытался это:

set json = CreateObject("Scripting.Dictionary") 

Но этот объект не поддерживает json.AddStringAt свойства. Как создать объект JSON, поддерживающий json.AddStringAt?

Мой файл образец

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 

Answer 1

Похоже, есть библиотека, которая имеет метод, который вы ищете.

set json = CreateObject("Chilkat_9_5_0.JsonObject") 

https://www.chilkatsoft.com/refdoc/xChilkatJsonObjectRef.html