#include <JSON.au3>

; Anfrage von Wetter mit JSON Antwort: http://api.openweathermap.org/data/2.5/forecast/daily?q=Berlin&mode=json&units=metric&cnt=1&lang=de
;local $Json1 = '{"cod":"200","message":0.0268,"city":{"id":2950159,"name":"Berlin","coord":{"lon":13.41053,"lat":52.524368},"country":"DE","population":1000000},"cnt":1,"list":[{"dt":1368874800,"temp":{"day":13.22,"min":10.57,"max":13.22,"night":10.57,"eve":12.49,"morn":13.22},"pressure":1015.76,"humidity":100,"weather":[{"id":501,"main":"Rain","description":"mäßiger Regen","icon":"10"}],"speed":7.08,"deg":269,"clouds":92,"rain":7.75}]}'
local $Json1 = '{"machine-hostname":"Windows 10 vM","machine-fqdn":"uvo1gqszzhfd7ms6v4k.vm.cld.sr","machine-fqdn-webaccess":"uvo1gqszzhfd7ms6v4k.env.cloudshare.com","machine-vanity-name-generic":"uvo1gqszzhfd7ms6v4k","machine-internal-ip":"10.160.0.10","machine-id":"MC4fT3Ho7cO0pRf5G7YW-7KQ2","machine-name":"Windows 10 Workstation","env-id":"ENtNcUBp8GWGyf4Q1UOAqpgw2","env-name":"1360 WSTN D.1","env-owner-email":"robinj+1@learningtree.com","env-owner-id":"USLe6-3U6I2OK2TdayKY72ZA2","class-id":"CO7u4At1s-m6klHcP2i_k6_Q2","env-region":0,"custom-properties":{"studRegNum":"23124124","studNum":"20","o365email":"student20@252a02en.onmicrosoft.com","o365psswd":"Pa55w0rd"}}'
ConsoleWrite($Json1 & @CRLF)
$Json2=BinaryToString(InetRead("https://metadata.cloudshare.com/api/v3/unauthenticated/metadata"))
ConsoleWrite($Json2 & @CR)
Local $metadata1 = Json_Decode($Json1)
Local $metadata2 = Json_Decode($Json2)


Local $custprops = Json_ObjGet($metadata1, "custom-properties") ; "list" is an array
Local $Pass = Json_ObjGet($custprops, "studNum") ; "temp" is an object
ConsoleWrite("Password: " & Json_ObjGet($custprops, "studNum") & @LF)

ConsoleWrite(Json_Encode($metadata1, $JSON_PRETTY_PRINT, "  ", "\n", "\n", ""))
ConsoleWrite(Json_Encode($custprops, $JSON_PRETTY_PRINT, "  ", "\n", "\n", ""))

;ConsoleWrite(@CR & "-LIST" & @CR & Json_Encode($objJson2, $JSON_PRETTY_PRINT, "  ", "\n", "\n", ""))

;ConsoleWrite(Json_ObjGet($Temp, "day") & @LF)
;ConsoleWrite(Json_ObjGet($Temp, "min") & @LF)