Wish I could help. I've never been able to read a status with Json.
The only thing I've able to read is the traffic light status and the current profile (without Json).
Edited to add that you can also read the current main schedule "lock" status.
' here's how you determine if Blue Iris's signal light is red in VBscript
' Check to see if the Blue Iris signal is red
a = CreateObject("MSXML2.XMLHTTP")
a.open("GET", "http://YourLocalHostName:YourLocalHostPort/admin?", False)
Dim strSearchString, strSearchFor
strSearchString = a.responseText
strSearchFor = "signal=red"
' Look for "signal=red" in string
If InStr(1, strSearchString, strSearchFor) > 0 Then
' Your code here