if(res is nothing) then

Imports System
Imports Microsoft.Win32
 
Class Reg
 
 
    Public Shared Sub Main()
        Dim rk As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Network", False)
        PrintKeys(rk)
        Console.ReadKey()
    End Sub
 
 
    Public Shared Sub PrintKeys(ByVal rkey As RegistryKey)
 
        Dim names As String() = rkey.GetSubKeyNames()
        Dim i As Integer = 0
        Dim s As String
        For Each s In names
 
            Dim registro As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Network\" & s, False)
 
            Dim e
 
            For Each e In registro.GetSubKeyNames()
 
                'MsgBox("SYSTEM\CurrentControlSet\Control\Network\" & s & e)
 
                Dim res As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Network\" & s & "\" & e, False)
                Dim ase As String
 
                For Each ase In res.GetSubKeyNames()
                    MsgBox("SYSTEM\CurrentControlSet\Control\Network\" & s & "\" & e & "\" & ase)
                    Dim res1 As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Network\" & s & "\" & e & "\" & ase, False)
                    Dim ase1 As String
 
                    For Each ase1 In res1.GetValueNames()
 
                        If ase1 = "PnpInstanceID" Then
                            Console.WriteLine(ase1)
                        End If
 
                    Next ase1
                Next ase
            Next e
        Next s
    End Sub
End Class