| |
Использование 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
|
|
| |
|
|
|
|