Dim mos As System.Management.ManagementObjectSearcher Dim moc As System.Management.ManagementObjectCollection Dim mo As System.Management.ManagementObject Dim prop As System.Management.PropertyData = Nothing Dim FSO As Object = Nothing Dim txtstream As Object = Nothing Dim MyString As String = String.Empty mos = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration") moc = mos.Get() For Each mo In moc Console.WriteLine(mo.GetText(Management.TextFormat.Mof)) Next
DNSDomain
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)