GetBiosType

Const HKEY_LOCAL_MACHINE = &H80000002

' Return information about the Bios (NT only)

'

' Requires the GetRegistryValue routine


Sub GetBiosInfo(BiosDate As String, BiosVersion As String)
' These keys appear to exist only on NT systems

BiosDate = GetRegistryValue(HKEY_LOCAL_MACHINE, _
"Hardware\Description\System", "SystemBiosDate", "")
BiosVersion = GetRegistryValue(HKEY_LOCAL_MACHINE, _
"Hardware\Description\System", "SystemBiosVersion", "")
End Sub