Вывод информации о BIOS

В сценарии BIOSInfo.vbs (листинг 13.4) на экран выводятся некоторые свойства объекта Win32_BIOS, в котором хранятся параметры и характеристики BIOS, установленной на компьютере.

'*******************************************************************

' Имя: BIOSInfo.vbs

' Язык: VBScript

' Описание: Вывод информации о BIOS

'*******************************************************************

Option Explicit

 

' Объявляем переменные

Dim strComputer ' Имя компьютера

Dim strNamespace ' Имя пространства имен

Dim strClass ' Имя класса

Dim objClass ' Объект SWbemObject (класс WMI)

Dim colInstances ' Коллекция экземпляров класса WMI

Dim objBIOS ' Элемент коллекции

Dim strResult ' Результирующая строка

 

'********************** Начало *************************************

' Присваиваем начальные значения переменным

strComputer = "."

strNamespace = "Root\CIMV2"

strClass = "Win32_BIOS"

strResult = "Информация о BIOS :" & VbCrLf

 

' Получаем указатель на класс WMI

Set objClass = GetObject("winmgmts:\\" & strComputer & _

"\" & strNamespace & ":" & strClass)

' Создаем коллекцию экземпляров класса Win32_BIOS

Set colInstances = objClass.Instances_

 

' Перебираем элементы коллекции

For Each objBIOS in colInstances

strResult = strResult & "Name: " & objBIOS.Name & VbCrLf

strResult = strResult & "Manufacturer: " & objBIOS.Manufacturer &_

VbCrLf

strResult = strResult & "Caption: " & objBIOS.Caption & VbCrLf

strResult = strResult & "Description: " & objBIOS.Description & VbCrLf

strResult = strResult & "Build Number: " & objBIOS.BuildNumber & VbCrLf

strResult = strResult & "Current Language: " & objBIOS.CurrentLanguage & VbCrLf

strResult = strResult & _

"Installable Languages: " & objBIOS.InstallableLanguages & VbCrLf

strResult = strResult & "Primary BIOS: " & objBIOS.PrimaryBIOS & VbCrLf

strResult = strResult & "Release Date: " & objBIOS.ReleaseDate & VbCrLf

strResult = strResult & "Serial Number: " & objBIOS.SerialNumber & VbCrLf

strResult = strResult & "SMBIOS Version: " & _

objBIOS.SMBIOSBIOSVersion & VbCrLf

strResult = strResult & _

"SMBIOS Major Version: " & objBIOS.SMBIOSMajorVersion & VbCrLf

strResult = strResult & _

"SMBIOS Minor Version: " & objBIOS.SMBIOSMinorVersion & VbCrLf

strResult = strResult & "SMBIOS Present: " & objBIOS.SMBIOSPresent _

& VbCrLf

strResult = strResult & "Status: " & objBIOS.Status & VbCrLf

strResult = strResult & "Version: " & objBIOS.Version & VbCrLf

Next

 

'Выводим строку на экран

Wscript.Echo strResult

'************************* Конец ***********************************

Листинг 13.4. Вывод информации о BIOS

 

<== предыдущая лекция | следующая лекция ==>
Перезагрузка компьютера | Вывод свойств операционной системы


Дата добавления: 2018-03-01; просмотров: 123; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию, введите в поисковое поле ключевые слова и изучайте нужную вам информацию.

Поделитесь с друзьями:

Если вам понравился данный ресурс вы можете рассказать о нем друзьям. Сделать это можно через соц. кнопки выше.
helpiks.org - Хелпикс.Орг - 2014-2018 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.006 сек.