Vbscript проверки значение массива с другого сервера

Question

Как я могу сравнить значение массива с другого сервера я использую VBScript, но массив с другого сервера встроен в PHP .. ниже массива я получил ..

{"VALUE1":"yes","VALUE2":"success","VALUE3":"34","VALUE4":"1","VALUE5":"377"}. 

Я хочу, чтобы проверить значение VALUE1 для value4 .. здесь мой код ..

Set dict = CreateObject("Scripting.Dictionary") 

For Each x in Test1 
    xSplit = Split(x, ":") 

    dict.Add xSplit(0), xSplit(1) 

Next 

If dict.Exists("VALUE1") Then 


    response.Write dict("VALUE1") 

Else 

    response.Write("Index VALUE1 does not exist.") 

End If 
%> 

Answer 1

строка у вас есть строка JSON, так что вам нужно JSON парсер.
Вместо того чтобы писать свой собственный, вы можете использовать анализатор как ASPJSON

<!--#include file="aspJSON1.17.asp" --> 
<% 
Dim oJSON 
Set oJSON = New aspJSON 

oJSON.loadJSON(x) 'x is the JSON string 

If oJSON.data.Exists("VALUE1") Then 
    Response.Write oJSON.data("VALUE1") 
Else 
    Response.Write "Index VALUE1 does not exist." 
End If 
%>