'*******************************************************************
' Имя: BIOSInfo.vbs
' Язык: VBScript
' Описание: Вывод информации о BIOS
' http://tc-image.3dn.ru/forum/3-319-1035-16-1333372025
'*******************************************************************
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 'Выводим строку на экран
'************************* Конец ***********************************

' ASCII.vbs
'----------------------------------------------------------------
' Выводит таблицу ASCII-кодов
' http://tc-image.3dn.ru/forum/3-319-1055-16-1333452451
Option Explicit
'--------------------------------------------------------------
ASCII 32,129
ASCII 130,200
ASCII 201,255

Sub ASCII(N,M)
   Dim i, a
   a = ""
   For i = N to M
      a = a & CStr(i) & " - " & chr(34) & chr(i) & Chr(34) & "; "
   Next
   MsgBox  a ,,"Вывод таблицы ASCII"
End Sub
'-------------------------------------------------------------