Hi,
sorry if this post is in the wrong area.
It is for use with in a program called Geo SCADA.
I have the code below;
''''''''''''''''''''
'HTTP JSON Post
''''''''''''''''''''
Sub HTTPJSONPost()
Dim o
Dim Jsonstring
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", " False
o.send
Mimic.Layers("WRRead").Item("T_8").Text = o.responseText
End Sub
This works in that it brings back the below;
{"id":4,"name":"Lemmy","email":"lemmy@email.com","nationality":"British"}
My question is how do I go about doing this in VBS, is it possible?
Hope someone can answer, I have been chasing for weeks.
Thanks,
sorry if this post is in the wrong area.
It is for use with in a program called Geo SCADA.
I have the code below;
''''''''''''''''''''
'HTTP JSON Post
''''''''''''''''''''
Sub HTTPJSONPost()
Dim o
Dim Jsonstring
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", " False
o.send
Mimic.Layers("WRRead").Item("T_8").Text = o.responseText
End Sub
This works in that it brings back the below;
{"id":4,"name":"Lemmy","email":"lemmy@email.com","nationality":"British"}
My question is how do I go about doing this in VBS, is it possible?
Hope someone can answer, I have been chasing for weeks.
Thanks,