How To Get All System Information In VB.NET

H

hey everyone so again a vb.net tutorial actually a console application tutorial but you will learn a lot from this things okay now i will tell you what information's you will be getting on the console

• Your Operating System Full Name
• Your Operating System Platform
• Your Operating System Version
• Your Windows Bit (32,64)
• Your Computer Name
• Your Computer Current Language Name
• Your Computer Current Date And Time
• Your Computer Manufacturer
• Your Computer Model
• Your Operating System Version
• Your System Type
• Your Windows Directory
• Your Number Of Processes 
• Your Computer Display Information
• Your Ram Memory
• Physical Memory
• Virtual Memory

okay now lets create the program just create a console application and you will see the model 1 now add a class and name it WMI and add this codes into the WMI class

Public Class WMI
    Private objOS As Management.ManagementObjectSearcher
    Private objCS As Management.ManagementObjectSearcher
    Private objMgmt As Management.ManagementObject
    Private m_strComputerName As String
    Private m_strManufacturer As String
    Private m_StrModel As String
    Private m_strOSName As String
    Private m_strOSVersion As String
    Private m_strSystemType As String
    Private m_strTPM As String
    Private m_strWindowsDir As String
    Public Sub New()
        objOS = New Management.ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
        objCS = New Management.ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")
        For Each objMgmt In objOS.Get
            m_strOSName = objMgmt("name").ToString()
            m_strOSVersion = objMgmt("version").ToString()
            m_strComputerName = objMgmt("csname").ToString()
            m_strWindowsDir = objMgmt("windowsdirectory").ToString()
        Next
        For Each objMgmt In objCS.Get
            m_strManufacturer = objMgmt("manufacturer").ToString()
            m_StrModel = objMgmt("model").ToString()
            m_strSystemType = objMgmt("systemtype").ToString
            m_strTPM = objMgmt("totalphysicalmemory").ToString()
        Next
    End Sub
    Public ReadOnly Property ComputerName()
        Get
            ComputerName = m_strComputerName
        End Get
    End Property
    Public ReadOnly Property Manufacturer()
        Get
            Manufacturer = m_strManufacturer
        End Get
    End Property
    Public ReadOnly Property Model()
        Get
            Model = m_StrModel
        End Get
    End Property
    Public ReadOnly Property OsName()
        Get
            OsName = m_strOSName
        End Get
    End Property
    Public ReadOnly Property OSVersion()
        Get
            OSVersion = m_strOSVersion
        End Get
    End Property
    Public ReadOnly Property SystemType()
        Get
            SystemType = m_strSystemType
        End Get
    End Property
    Public ReadOnly Property TotalPhysicalMemory()
        Get
            TotalPhysicalMemory = m_strTPM
        End Get
    End Property
    Public ReadOnly Property WindowsDirectory()
        Get
            WindowsDirectory = m_strWindowsDir
        End Get
    End Property
End Class

now add these codes inside the module1

Imports System.Management
Module Module1

    'Author : Mohamed Shimran
    'Blog : http://www.ultimateprogrammingtutorials.blogspot.com

   Dim bit As String
   Dim VGA As String
    Sub Main()
        If My.Computer.Registry.LocalMachine.OpenSubKey("Hardware\Description\System\CentralProcessor\0").GetValue("Identifier").ToString.Contains("x86") Then
            bit = "32-bit"
        Else
            bit = "64-bit"
        End If
        Console.Title = "System Information's"
        Console.WriteLine("your system information's")
        Console.WriteLine("")
        Console.WriteLine(My.Computer.Info.OSFullName.ToString())
        Console.WriteLine(My.Computer.Info.OSPlatform.ToString())
        Console.WriteLine(My.Computer.Info.OSVersion.ToString())
        Console.WriteLine("Windows bit version: " + bit)
        Console.WriteLine("Computer Name: " & My.Computer.Name.ToString())
        Console.WriteLine("Computer Language: " & System.Globalization.CultureInfo.CurrentCulture.DisplayName)
        Console.WriteLine("Current Date/Time: " & Date.Now.ToLongDateString + ", " + Date.Now.ToLongTimeString)
        Console.WriteLine("")
        Dim objWMI As New WMI()
        With objWMI
            Console.WriteLine("Computer Manufacturer = " & .Manufacturer)
            Console.WriteLine("Computer Model = " & .Model)
            Console.WriteLine("OS Version = " & .OSVersion)
            Console.WriteLine("System Type = " & .SystemType)
            Console.WriteLine("Windows Directory = " & .WindowsDirectory)
        End With
        Console.WriteLine("")
        Console.WriteLine("Number of Processes: " & Environment.ProcessorCount.ToString)
        Dim moSearch As New ManagementObjectSearcher("Select * from Win32_Processor")
        Dim moReturn As ManagementObjectCollection = moSearch.Get
        For Each mo As ManagementObject In moReturn
            Console.WriteLine("Processor: " & (mo("name")))
        Next
        Dim ramsize As Integer
        ramsize = My.Computer.Info.TotalPhysicalMemory / 1024 / 1024
        Console.WriteLine("Memory: " & ramsize.ToString & "MB RAM")
        Console.WriteLine("")
        Dim WmiSelect As New ManagementObjectSearcher _
        ("root\CIMV2", "SELECT * FROM Win32_VideoController")
        For Each WmiResults As ManagementObject In WmiSelect.Get()
            VGA = WmiResults.GetPropertyValue("Name").ToString
        Next
        Console.WriteLine("Computer Display Info: " & VGA)
        Dim intX As Integer = Windows.Forms.Screen.PrimaryScreen.Bounds.Width
        Dim intY As Integer = Windows.Forms.Screen.PrimaryScreen.Bounds.Height
        Console.WriteLine("Screen Resolution: " & intX & " X " & intY)
        Console.WriteLine("")
        Console.WriteLine("Total Physical Memory: " & My.Computer.Info.TotalPhysicalMemory.ToString())
        Console.WriteLine("Total Virtual Memory: " & My.Computer.Info.TotalVirtualMemory.ToString())
        Console.WriteLine("Available Virtual Memory: " & My.Computer.Info.AvailableVirtualMemory.ToString())
        Console.WriteLine("Available Physical Memory: " & My.Computer.Info.AvailablePhysicalMemory.ToString())
        Console.WriteLine("Network Available: " & My.Computer.Network.IsAvailable.ToString())
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("Additional Info:")
        Console.WriteLine("Scroll Lock " & My.Computer.Keyboard.ScrollLock)
        Console.WriteLine("Num Lock " & My.Computer.Keyboard.NumLock)
        Console.WriteLine("Caps Lock " & My.Computer.Keyboard.CapsLock)
        Console.WriteLine("")
        Console.WriteLine("Current Processes: ")
        Console.WriteLine("")
        For Each p As Process In Process.GetProcesses
            Console.WriteLine(p)
        Next
        Console.ReadKey()
    End Sub
End Module

now just debug and see how it works :)

 I forgot to mention that you have to add System.Drawing, System.Windows, System.Management from reference and you have to add these namespaces
Imports System.Management
Imports System.Drawing
Imports System.Windows
Imports System.Windows.Forms
By the way I would like to thank the commenter who said about this.