append to a json list in vbscript

Question

i would like to append a new entrie to a json file using vbscript, here is the file before :

[
{"serial": "00325-80908-64912-AAOEM", "build": "19041", "os": "Microsoft Windows 10 Famille", "key": "--WINDOWS ACTIVATION KEY--"},
{"serial": "00371-OEM-8992671-00007", "build": "7601 ", "os": "Microsoft Windows 7 Professionnel", "key": "--WINDOWS ACTIVATION KEY--"}
]

and here is what i would like after :

[
{"serial": "00325-80908-64912-AAOEM", "build": "19041", "os": "Microsoft Windows 10 Famille", "key": "--WINDOWS ACTIVATION KEY--"},
{"serial": "00371-OEM-8992671-00007", "build": "7601 ", "os": "Microsoft Windows 7 Professionnel", "key": "--WINDOWS ACTIVATION KEY--"},
{"serial": "00325-80000-00000-AAOEM", "build": "19041", "os": "Microsoft Windows 10 Famille", "key": "--WINDOWS ACTIVATION KEY--"}
]

thanks