Finally got Newtonsoft to read an array of objects.

Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Module Module1

   Sub Main()
      Dim sTemp As String
   
      Dim sr As New IO.StreamReader("e:\sre\temp\rest1.txt")
      sTemp = sr.ReadToEnd
      sr.Close()
   
      Dim a As JArray
      Dim a1 As JObject
      a = JsonConvert.DeserializeObject(sTemp)
      For Each a1 In a
         Dim data As List(Of JToken) = a1.Children().ToList
         For Each item As JProperty In data
            'item.CreateReader()
            Debug.WriteLine(item.Name)
            Select Case item.Name
               Case "timeZone"
                  Debug.WriteLine(item.Value.ToString)
            End Select
         Next
      Next
   End Sub

Firmware upgrade for tp-link Archer C9 router

I performed an upgrade of the firmware for the tp-link Archer C9 router. I got the firmware update from their website and then used the web interface, 192.168.0.1 and logged in. Installation of the firmware update seemed to go well, but then I lost connection after it rebooted.

Connect the router to your computer directly via one of the output ethernet connectors. You need to do this because at reboot, it gives a random number in the password for the router and you'll never get in wirelessly.  Once there, you can again connect to the web interface. Change the password to the desired value and you should be able to connect wirelessly again. The directions don't explicitly tell you that the password you use will be lost.