'==========================================================================
'
' VBScript:  AUTHOR: Ed Wilson , MS,  10/30/2003
'
' NAME: SmallBios.vbs
'
' COMMENT: Key concepts are listed below:
'1. uses default wmi settings: local computer, impersonate, and root\cimv2
'2. omits normal header information
'3. does same thing as determineBIOS.vbs
'==========================================================================

wmiQuery = "Select * from win32_BIOS"

Set objWMIService = GetObject("winmgmts:\\")
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