VBScript で JSON 文字列 を使う

json_test.vbs

option Explicit

dim doc, jsonStr, js, elm
set doc = CreateObject("htmlfile")

jsonStr = "{""user"":{""id"":""mgng"", ""name"": ""ムグ""}}"
js = _
	"var json = " & jsonStr & ";" & _
	"var div = document.createElement('div');" & _
	"div.setAttribute('id', 'id_elm');" & _
	"div.setAttribute('data-id', json.user.id);" & _
	"div.setAttribute('data-name', json.user.name);" & _
	"document.appendChild(div);"

doc.parentWindow.execScript js, "JavaScript"
set elm = doc.getElementById("id_elm")

WScript.Echo elm.getAttribute("data-id")
WScript.Echo elm.getAttribute("data-name")  
' mgng
' ムグ