Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Сделано руками
Сделано руками
> Исходные коды - Jenner -

Visual Basic .NET - Железо и устройства

Все примеры / Железо и устройства

Простой пример класса для получения информации о железе

Автор: Jenner | добавлено: 06.03.2010, 17:55 | просмотров: 4296 (1+) | комментариев: 0 | рейтинг: *x10
Простой пример класса для получения информации о железе.
Функционал класса можно расширить.

Инструкции

Использовать можно, например, так:
Dim c As New clsComputerInfo()
MsgBox("Номер Вашей материнской платы: " & c.GetMotherBoardID)

Код

Imports System
Imports System.Management
 
'*******************************************************************
'Простой пример класса для получения информации о железе
'Для работы класса, к проекту необходимо подключить System.Management.dll
'(меню Project -> Add Reference..)
'http://vbnet.su - Visual Basic .NET. Статьи. Примеры. Форум.
'*******************************************************************
 
Public Class clsComputerInfo
 
    Friend Function GetProcessorId() As String
        Dim strProcessorId As String = String.Empty
        Dim query As New SelectQuery("Win32_processor")
        Dim search As New ManagementObjectSearcher(query)
        Dim info As ManagementObject
 
        For Each info In search.Get()
            strProcessorId = info("processorId").ToString()
        Next
        Return strProcessorId
 
    End Function
 
    Friend Function GetMACAddress() As String
 
        Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        Dim MACAddress As String = String.Empty
        For Each mo As ManagementObject In moc
 
            If (MACAddress.Equals(String.Empty)) Then
                If CBool(mo("IPEnabled")) Then MACAddress = mo("MacAddress").ToString()
 
                mo.Dispose()
            End If
            MACAddress = MACAddress.Replace(":", String.Empty)
 
        Next
        Return MACAddress
    End Function
 
    Friend Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String
 
        Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))
        disk.Get()
        Return disk("VolumeSerialNumber").ToString()
    End Function
 
    Friend Function GetMotherBoardID() As String
 
        Dim strMotherBoardID As String = String.Empty
        Dim query As New SelectQuery("Win32_BaseBoard")
        Dim search As New ManagementObjectSearcher(query)
        Dim info As ManagementObject
        For Each info In search.Get()
 
            strMotherBoardID = info("SerialNumber").ToString()
 
        Next
        Return strMotherBoardID
 
    End Function
   
End Class
Об авторе

Jenner

Нет информации об авторе...
Jenner
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики