VBScript Requires Chilkat v11.4.0+

Example: JsonObject.NewObjectOf method

Demonstrates the NewObjectOf method. 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

car = "{""make"":""Toyota"",""model"":""Camry"",""year"":2022,""color"":""silver"",""engine"":{""type"":""inline-4"",""fuel"":""gasoline"",""horsepower"":203},""features"":[""bluetooth"",""backup camera"",""adaptive cruise control"",""lane assist""],""isElectric"":false}"

set json = CreateObject("Chilkat.JsonObject")

success = json.UpdateString("test","abc")

success = json.NewObjectOf("car",car)
If (success = 0) Then
    outFile.WriteLine(json.LastErrorText)
    WScript.Quit
End If

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

'  Result:

'  {
'    "test": "abc",
'    "car": {
'      "make": "Toyota",
'      "model": "Camry",
'      "year": 2022,
'      "color": "silver",
'      "engine": {
'        "type": "inline-4",
'        "fuel": "gasoline",
'        "horsepower": 203
'      },
'      "features": [
'        "bluetooth",
'        "backup camera",
'        "adaptive cruise control",
'        "lane assist"
'      ],
'      "isElectric": false
'    }
'  }

outFile.Close