Información del Sistema - VER QUE PROCESADOR TENGO VB.NET

VER QUE PROCESADOR TENGO VB.NET

Imports System
Imports System.Management
Imports System.Windows.Forms

Namespace WMISample

    Public Class MyWMIQuery

        Public Overloads Shared Function Main() As Integer

            Try
                Dim arrComputers As String() = _
                    {"Sistemas"}
                For Each strComputer As String In arrComputers

                    Console.WriteLine("==========================================")
                    Console.WriteLine("Computer: " & strComputer)
                    Console.WriteLine("==========================================")

                    Dim searcher As New ManagementObjectSearcher( _
                        "\\" + strComputer + "\root\CIMV2", _
                        "SELECT * FROM Win32_Processor")

                    For Each queryObj As ManagementObject In searcher.Get()

                        Console.WriteLine("-----------------------------------")
                        Console.WriteLine("Win32_Processor instance")
                        Console.WriteLine("-----------------------------------")
                        Console.WriteLine("Description: {0}", queryObj("Description"))
                        Console.WriteLine("Family: {0}", queryObj("Family"))
                        Console.WriteLine("Name: {0}", queryObj("Name"))
                    Next
                Next
            Catch err As ManagementException
                MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
            End Try
        End Function
    End Class
End Namespace

Información del Sistema - Listar Adaptadores de Red VB.NET

COMO LISTAR MIS ADAPTADORES O TARJETAS DE RED EN VB.NET

Option Strict On
Option Explicit On

Imports System
Imports System.Management

Public Class ConsoleApp

    Shared Sub Main()
        Network.EnumNetworkAdapters()
    End Sub

End Class

Public Class Network
    Public Shared Sub EnumNetworkAdapters()
        Dim query As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
        Dim queryCollection As ManagementObjectCollection = query.Get()
        Dim mo As ManagementObject
        Dim s As String

        For Each mo In queryCollection
            Console.WriteLine("'{0}", mo.ClassPath)
            Console.WriteLine("'{0}", mo.Options)
            Console.WriteLine("Index   '{0}", mo("Index"))
            Console.WriteLine("Description   '{0}", mo("Description"))
            Console.WriteLine("MacAddress   '{0}", mo("MacAddress"))

            If (CType(mo("IPEnabled"), Boolean) = True) Then
                Dim addresses() As String = CType(mo("IPAddress"), String())
                Dim subnets() As String = CType(mo("IPSubnet"), String())

                Console.WriteLine("DNS Host   '{0}", mo("DNSHostName"))
                Console.WriteLine("DNS Domain   '{0}", mo("DNSDomain"))

                For Each s In addresses
                    Console.WriteLine("IP Address   '{0}", s)
                Next

                For Each s In subnets
                    Console.WriteLine("IP Subnet   '{0}", s)
                Next
            End If
        Next
    End Sub
End Class