Get System Information Using WMI in VB.NET

Category:

C#, VB.NET, ASP.NET

Type:

Classes

Difficulty:

Beginning

Author:

Intelligent Solutions Inc.

Version Compatibility: Visual Basic.NET

More information:

This class shows you how to use WMI to get some basic system information in .NET. It demonstrates only a small subset of the features within WMI. You must include a reference to system.management to use it. Below is a sample of how to use the class:

     Dim objWMI As New clsWMI()
With objWMI
      Debug.WriteLine("Computer Name = " & .ComputerName)
      Debug.WriteLine("Computer Manufacturer = " & .Manufacturer)
      Debug.WriteLine("Computer Model = " & .Model)
      Debug.WriteLine("OS Name = " & .OsName)
      Debug.WriteLine("OS Version = " & .OSVersion)
      Debug.WriteLine("System Type = " & .SystemType)
      Debug.WriteLine("Total Physical Memory = " & .TotalPhysicalMemory)
      Debug.WriteLine("Windows Directory = " & .WindowsDirectory)
End With

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
'To use this class you must add a reference 'to System.Management from the Project | References 'menu Imports System.Management

Code:

Public Class clsWMI
    Private objOS As ManagementObjectSearcher
    Private objCS As ManagementObjectSearcher
    Private objMgmt As 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 ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
        objCS = New 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