Просмотр версии BIOS

Dim strComputer
dim wmiNS
dim wmiQuery
dim objWMIService
dim colItems
dim objItem
Dim strBIOSVersion

strComputer = "."
wmiNS = "\root\cimv2"
wmiQuery = "Select * from win32_BIOS"



Set objWMIService=GetObject("winmgmts:\\" & strComputer & wmiNS)
objWMIService.Security_.ImpersonationLevel = 4
Set colItems = objWMIService.ExecQuery(wmiQuery)

For Each objItem in colItems
  strBIOSVersion = Join(objItem.BiosVersion, ",")
    WScript.Echo "BIOSVersion: " & strBIOSVersion 
	Wscript.Echo ": " & objItem.caption
    Wscript.Echo ": " & objItem.releaseDate
Next