Dim wql As String = "SELECT * FROM Win32_NetworkAdapter"
        Dim searcher As New ManagementObjectSearcher("root\CIMV2", wql)
        '// NetConnectionStatus
        Dim status As Integer
        For Each mo As ManagementObject In searcher.Get
            If Not mo("NetConnectionStatus") Is Nothing Then
                status = Integer.Parse(mo("NetConnectionStatus").ToString())
                MessageBox.Show("Status von " + mo("Caption").ToString() + " =" & _
                  "" + status.ToString())
            End If
            '// For Each p As Management.PropertyData In mo.Properties
            '// Debug.WriteLine(p.Name + " : " + IIf(mo(p.Name) Is Nothing, "", 
            ' mo(p.Name)).ToString)
            '// Next
        Next
        searcher.Dispose()
 
        '// Statuscodes:
        '        NetConnectionStatus()
        '        Data(Type) : UInt16()
        '        Access(Type) : Read(-only)
        ' Value 	Meaning
        '
        ' 0
        ' 0x0 	Disconnected
        ' 1
        ' 0x1 	Connecting
        ' 2
        ' 0x2 	Connected
        ' 3
        ' 0x3 	Disconnecting
        ' 4
        ' 0x4 	Hardware not present
        ' 5
        ' 0x5 	Hardware disabled
        ' 6
        ' 0x6 	Hardware malfunction
        ' 7
        ' 0x7 	Media disconnected
        ' 8
        ' 0x8 	Authenticating
        ' 9
        ' 0x9 	Authentication succeeded
        ' 10
        ' 0xA 	Authentication failed
        ' 11
        ' 0xB 	Invalid address
        ' 12
        ' 0xC 	Credentials