Sub Main()

in IMDSSample.vb [6:22]

• 13 lines of code
• 1 McCabe index (conditional complexity)

    Sub Main()
        Dim request As HttpWebRequest = WebRequest.Create("http://169.254.169.254/metadata/instance?api-version=2021-02-01")
        
        Dim proxy As New WebProxy()
        request.Headers.Add("Metadata: True")
        request.Proxy = proxy
        Dim response As HttpWebResponse = request.GetResponse()
        Dim dataStream As Stream = response.GetResponseStream()
        Dim reader As New StreamReader(dataStream)
        Dim responseFromServer As String = reader.ReadToEnd()

        Dim json As String = JsonConvert.SerializeObject(JsonConvert.DeserializeObject(responseFromServer), Formatting.Indented)
        Console.WriteLine(json)
        reader.Close()
        dataStream.Close()
        response.Close()
    End Sub