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 |