[vb6] Bios

[rayden]

Intanto salve ragazzi!!!,sto per chiedervi qualcosa che forse non si potrà mai fare con vb6 ma dato che so che siete in tanti e molto bravi vi espongo il fatto
Vorrei creare un'applicazione che mi permetta tramite varie combobox e listbox di visualizzare tutte le info e le opzioni attivate e non nel nostro bios,e dove qualora sia possibile modificarle!!! :master:
Come vi avevo detto è un bel rompicapo anzi un gran rompi per questo chiedo il vostro aiuto vi prego trovate una soluzione!!!
Anticipatamente Grazie

[raffaeu]

Siccome le info che tu cerchi windows le memorizza nel Regedit

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

Non funziona su 98 e Millenium, si su MT, 2000, XP e 2003