Java 创建json对象并使用VBScipt将数据传递给服务器

我是开发Web服务的初学者，所以请帮助解决我的问题

我需要创建一个VBS（VBScript）文件，其中包含如何创建json字符串以及json对象传递给JavaRESTfulWebService

下面是我的代码，但它不是json表单，因此请帮助创建对象的json表单

surl="http://localhost:8080/de.vogella.jersey.first/rest/hello/add"
Set objNetwork = CreateObject("Wscript.Network") 
strComputer = objNetwork.ComputerName 
json="name="+strComputer+"&age=24"
'json="name=strComputer&age=24"
HTTPPost sUrl,json
Function HTTPPost(sUrl,json)

'Microsoft.XMLHTTP
set OHTTP = CreateObject("MSXML2.serverXMLHTTP")
OHTTP.open "POST",surl,false
msgbox(surl & json)


OHTTP.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
OHTTP.setRequestHeader "Content-Length","Len(json)"
OHTTP.setRequestHeader "Pragma","no-cache"
OHTTP.setRequestHeader "Expires","-1"
OHTTP.setRequestHeader "Connection","close"

OHTTP.send json

'HTTPPOST = oHTTP.responseText
msgbox(OHTTP.responseText)
End Function

提前感谢您花宝贵的时间解决我的问题

这将很有帮助：