Bios Version...

[autoit]

; Generated by AutoIt Scriptomatic November 12, 2009

[/autoit] [autoit][/autoit] [autoit]

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

[/autoit] [autoit][/autoit] [autoit]

$Output=""
$Output &= "Computer: " & $strComputer & @CRLF
$Output &= "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

[/autoit] [autoit][/autoit] [autoit]

If IsObj($colItems) then
For $objItem In $colItems
$strBiosCharacteristics = $objItem.BiosCharacteristics(0)
$Output &= "BiosCharacteristics: " & $strBiosCharacteristics & @CRLF
$strBIOSVersion = $objItem.BIOSVersion(0)
$Output &= "BIOSVersion: " & $strBIOSVersion & @CRLF
$Output &= "BuildNumber: " & $objItem.BuildNumber & @CRLF
$Output &= "Caption: " & $objItem.Caption & @CRLF
$Output &= "CodeSet: " & $objItem.CodeSet & @CRLF
$Output &= "CurrentLanguage: " & $objItem.CurrentLanguage & @CRLF
$Output &= "Description: " & $objItem.Description & @CRLF
$Output &= "IdentificationCode: " & $objItem.IdentificationCode & @CRLF
$Output &= "InstallableLanguages: " & $objItem.InstallableLanguages & @CRLF
$Output &= "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
$Output &= "LanguageEdition: " & $objItem.LanguageEdition & @CRLF
$strListOfLanguages = $objItem.ListOfLanguages(0)
$Output &= "ListOfLanguages: " & $strListOfLanguages & @CRLF
$Output &= "Manufacturer: " & $objItem.Manufacturer & @CRLF
$Output &= "Name: " & $objItem.Name & @CRLF
$Output &= "OtherTargetOS: " & $objItem.OtherTargetOS & @CRLF
$Output &= "PrimaryBIOS: " & $objItem.PrimaryBIOS & @CRLF
$Output &= "ReleaseDate: " & WMIDateStringToDate($objItem.ReleaseDate) & @CRLF
$Output &= "SerialNumber: " & $objItem.SerialNumber & @CRLF
$Output &= "SMBIOSBIOSVersion: " & $objItem.SMBIOSBIOSVersion & @CRLF
$Output &= "SMBIOSMajorVersion: " & $objItem.SMBIOSMajorVersion & @CRLF
$Output &= "SMBIOSMinorVersion: " & $objItem.SMBIOSMinorVersion & @CRLF
$Output &= "SMBIOSPresent: " & $objItem.SMBIOSPresent & @CRLF
$Output &= "SoftwareElementID: " & $objItem.SoftwareElementID & @CRLF
$Output &= "SoftwareElementState: " & $objItem.SoftwareElementState & @CRLF
$Output &= "Status: " & $objItem.Status & @CRLF
$Output &= "TargetOperatingSystem: " & $objItem.TargetOperatingSystem & @CRLF
$Output &= "Version: " & $objItem.Version & @CRLF
if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
$Output=""
Next
Else
Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_BIOS" )
Endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func WMIDateStringToDate($dtmDate)

[/autoit] [autoit][/autoit] [autoit]

Return (StringMid($dtmDate, 5, 2) & "/" & _
StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
& " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc

[/autoit]