如何使用VBScript或批处理文件从JSON文件下载并获取值？

Dim url, xmlhttp, responseText

url = "http://example.com/data.json" ' JSON文件的URL

Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
xmlhttp.Open "GET", url, False
xmlhttp.Send

responseText = xmlhttp.responseText

' 将responseText保存到本地文件
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("data.json", True)
file.Write responseText
file.Close

Dim json, jsonObj, value

' 读取保存的JSON文件
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("data.json", 1)
json = file.ReadAll
file.Close

' 解析JSON数据
Set jsonObj = JsonConverter.ParseJson(json)

' 获取所需的值
value = jsonObj("key") ' 替换为你需要获取的键名

' 输出获取的值
WScript.Echo value

@echo off

setlocal

set jsonFile=data.json
set key=key

for /f "delims=" %%i in ('jq -r ".%key%" %jsonFile%') do set value=%%i

echo %value%

endlocal