[size=2][color=#0000ff]Private [/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2] ListObjects()
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] oSearcher [/size][size=2][color=#0000ff]As [/color][/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Management.ManagementObjectSearcher("select * from Win32_NetworkAdapterConfiguration")
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] oObject [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Management.ManagementObject
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] oProperty [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Management.PropertyData
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] sKey [/size][size=2][color=#0000ff]As [/color][/size][size=2][color=#0000ff]String[/color][/size][size=2] = ""
[/size][size=2][color=#0000ff]For [/color][/size][size=2][color=#0000ff]Each[/color][/size][size=2] oObject [/size][size=2][color=#0000ff]In[/color][/size][size=2] oSearcher.Get
[/size][size=2][color=#0000ff]For [/color][/size][size=2][color=#0000ff]Each[/color][/size][size=2] oProperty [/size][size=2][color=#0000ff]In[/color][/size][size=2] oObject.Properties
sKey += oProperty.Name + " : "
[/size][size=2][color=#0000ff]If[/color][/size][size=2][color=#0000ff]Not[/color][/size][size=2] oProperty.Value [/size][size=2][color=#0000ff]Is [/color][/size][size=2][color=#0000ff]Nothing [/color][/size][size=2][color=#0000ff]Then
[/color][/size][size=2]sKey += oProperty.Value + vbCrLf
[/size][size=2][color=#0000ff]Else
[/color][/size][size=2]sKey += "Nothing" + vbCrLf
[/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If
[/color][/size][size=2][color=#0000ff]Next
[/color][/size][size=2][color=#0000ff]Next
[/color][/size][size=2]MsgBox(sKey)
[/size][size=2][color=#0000ff]End [/color][/size][size=2][color=#0000ff]Sub
[/color][/size]