Вывод свойств операционной системы

Основные свойства установленной операционной системы (загрузочное устройство, номер сборки, дата установки и т. д.) можно получить с помощью объекта Win32_OperatingSystem (листинг 13.6).

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

' Имя: OSProperty.vbs

' Язык: VBScript

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

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

Option Explicit

 

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

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

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

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

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

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

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

Dim strResult ' Строка для вывода на экран

 

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

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

strComputer = "."

strNamespace = "Root\CIMV2"

strClass = "Win32_OperatingSystem"

strResult = " Свойства операционной системы: " & VbCrLf & VbCrLf

 

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

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

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

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

Set colOperatingSystems = objClass.Instances_

 

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

For Each objOperatingSystem in colOperatingSystems

' Формирум строку для вывода на экран

strResult = strResult & "Boot Device: " & _

objOperatingSystem.BootDevice & VbCrLf

strResult = strResult & "Build Number: " & _

objOperatingSystem.BuildNumber & VbCrLf

strResult = strResult & "Build Type: " & _

objOperatingSystem.BuildType & VbCrLf

strResult = strResult & "Caption: " & _

objOperatingSystem.Caption & VbCrLf

strResult = strResult & "Code Set: " & _

objOperatingSystem.CodeSet & VbCrLf

strResult = strResult & "Country Code: " & _

objOperatingSystem.CountryCode & VbCrLf

strResult = strResult & "Install Date: " & _

objOperatingSystem.InstallDate & VbCrLf

strResult = strResult & "Licensed Users: " & _

objOperatingSystem.NumberOfLicensedUsers & VbCrLf

strResult = strResult & "Organization: " & _

objOperatingSystem.Organization & VbCrLf

strResult = strResult & "OS Language: " & _

objOperatingSystem.OSLanguage & VbCrLf

strResult = strResult & "OS Product Suite: " & _

objOperatingSystem.OSProductSuite & VbCrLf

strResult = strResult & "OS Type: " & _

objOperatingSystem.OSType & VbCrLf

strResult = strResult & "Primary: " & _

objOperatingSystem.Primary & VbCrLf

strResult = strResult & "Registered User: " & _

objOperatingSystem.RegisteredUser & VbCrLf

strResult = strResult & "Serial Number: " & _

objOperatingSystem.SerialNumber & VbCrLf

strResult = strResult & "Version: " & _

objOperatingSystem.Version & VbCrLf

Next

 

' Выводим результат на экран

Wscript.Echo strResult

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

Листинг 13.6. Вывод свойств операционной системы

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


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


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

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

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

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