'==========================================================================
'
'
' NAME: <DetermineBIOS.vbs>
'
' AUTHOR: Ed Wilson , MS
' DATE  : 10/28/2003
'
' COMMENT: <Uses win32_BIOS>
'
'==========================================================================

'Option Explicit 
'On Error Resume Next
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)
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