Const HKEY_LOCAL_MACHINE = &H80000002' Return information about the Bios (NT only)'' Requires the GetRegistryValue routineSub GetBiosInfo(BiosDate As String, BiosVersion As String) ' These keys appear to exist only on NT systems BiosDate = GetRegistryValue(HKEY_LOCAL_MACHINE, _ "HardwareDescriptionSystem", "SystemBiosDate", "") BiosVersion = GetRegistryValue(HKEY_LOCAL_MACHINE, _ "HardwareDescriptionSystem", "SystemBiosVersion", "")End Sub
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)