Cássios,
Tenta usar:
Dim theManagementScope As New ManagementScope("\\" & ComputerName & "\root\cimv2")
Dim theQueryString As String = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = 1"
Dim theObjectQuery As New ObjectQuery(theQueryString)
Dim theSearcher As New ManagementObjectSearcher(theManagementScope, theObjectQuery)
Dim theResultsCollection As ManagementObjectCollection = theSearcher.Get()
Dim sResult As String = ""
For Each currentResult As ManagementObject In theResultsCollection
sResult += currentResult("SettingID").ToString()
Next
Abraços,
Marcio Boldorini ( * ) Por favor, marque respondida se a resposta valer.