VBCoding Библиотека кодов Visual Basic .NET ОС Windows, окна, оболочка Использование WMI

Visual Basic .NET
Использование WMI

WMI (Windows Management Instrumentation) - это Microsoft'ская реализация WBEM, система для управления Windows. С помощью WMI можно получить много очень поезной информации, например, серийный номер, дату выпуска и название BIOS, модель процессора, объём оперативной памяти, информацию о логических дисках и часовых поясах и т.д.
Ниже приведён пример получения информации о BIOS. Положите на форму TextBox с именем txtOutput, Multiline=True. Хотя можно обойтись и без этого, просто вместо вывода информации в TextBox сделайте вывод в консоль.
Да, чуть не забыл... Добавьте в Project|Add Reference ссылку на System.Management и импортируюте пространство имён System.Management, вставив вверху файла .vb такую строку:

Imports System.Management

'Очищаем TextBox
txtOutput.Text = ""

Try 'Обработчик ошибок
     Dim searcher As New ManagementObjectSearcher 'Создаём объект ManagementObjectSearcher
     searcher.Query = New SelectQuery("Select * From Win32_BIOS") 'Задаём запрос
     'Запрос пишется на языке структурированных запросов SQL
     Dim obj As ManagementObject 'Здесь будет храниться объект WMI
     Dim prop As PropertyData 'А здесь - свойство
     For Each obj In searcher.Get 'Получаем объекты и перебираем их в цикле For Each
         For Each prop In obj.Properties 'Получаем свойства объекта obj и перебираем их в цикле For Each
             'Здесь пришлось вставить проверку на Nothing, потому что при попытке конвертировать Nothing в строку методом ToString возникает ошибка
             If IsNothing(prop.Value) = True Then
                 txtOutput.Text &= prop.Name & " = {Nothing}" & vbCrLf
             Else
                 txtOutput.Text &= prop.Name & " = " & prop.Value.ToString & vbCrLf
             End If
         Next
     Next
Catch exp As Exception
     MsgBox(exp.Message, MsgBoxStyle.Critical)
End Try

 

Источник: http://www.vbnet.ru/ 
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic .NET ОС Windows, окна, оболочка Использование WMI  
Powered by Exponenta -