デバイスマネージャのネットワークアダプタ部

Question

に見られるように、あなたは非隠されたデバイスを読んでくださいどのように私は私がオンライン

Sub Main() 
    Dim path As ManagementPath = New ManagementPath() 
    path.Server = "." 
    path.NamespacePath = "root\CIMV2" 
    Dim scope As ManagementScope = New ManagementScope(path) 
    Dim query As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_NetworkAdapter") 
    Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(scope, query) 
    Dim queryCollection As ManagementObjectCollection = searcher.Get() 
    Dim m As ManagementObject 
    For Each m In queryCollection 
      Console.WriteLine("Device Name : {0}", m("Name")) 
    Next 
    Console.ReadLine() 
End Sub 

を発見したコードを使用しています現時点でのネットワークアダプタ as seen here を読みしようとしています

今、私はこれらのデバイスを含むデバイスのリストを見ていますが、隠れたデバイスがたくさんあり、もはや接続されていないデバイスのように見えます。デバイスマネージャがデフォルトで表示する内容のみを表示するように検索を絞り込むにはどうすればよいですか？

Answer 1

別のフォーラムで私の答えが見つかりましたが、リンクを再度見つけることができません。ここで答えは：

Dim moIP As ManagementObject 
    Dim myNet = New ManagementObjectSearcher _ 
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") 
    Dim CountIncrement As Int16 = 1 
    For Each moIP In myNet.Get    
     Console.WriteLine() 
     'find device with MAC Address 
     If CStr(moIP("MACAddress")) = "00:11:22:33:44:55" Then 
      'code here 
     End If 
    Next 

編集：forループ内で、これらのチェックは、接続されたデバイスの情報を見つけるためにもを行うことができます。

 Console.WriteLine("Device Name : {0}", moIP("Caption")) 
     Console.WriteLine("Service Name : {0}", moIP("ServiceName")) 
     Console.WriteLine("Description Name : {0}", moIP("Description")) 
     Console.WriteLine("MAC : {0}", moIP("MACAddress")) 
     Console.WriteLine(moIP("IPAddress")(0))