CPU Type and Speed

[TerryRitchie]

A while back I could have sworn I saw someone post code that identified the CPU and speed using a Declare Library but I can't find it. Furthermore, I would have saved something like that in my box of goodies but I can't find that either?? Is my age finally messing with my brain or did I in fact see this code recently?

[mnrvovrfc]

What a shame the author of "inxi" is such a rear-end about supporting Windows. I rather like the utility, but not its author.

Not all Linux distros have it, however. Windows should be able to give something similar through Power Shell. I miss Balderdash around here.

Happily, there is weird stuff like this:

https://github.com/AlexFlipnote/neofetch-win

But it could be a chore to pick up the text from a visual stunt like that. "inxi" does more like a military-style report.

[Ultraman]

I'm sure I could find you some code for this in Win32 API. If I remember to check, I will.

[SMcNeill]

I think I've did this somewhere before.  Let me see if I can dig it up in a bit.  

[SMcNeill]

https://learn.microsoft.com/en-us/window...dfrom=MSDN <-- This is what you need, IIRC

[Ultraman]

@TerryRitchie

Here you go.

Code: (Select All)

Option Explicit
$NoPrefix
$Console:Only
 
'$Include:'WinReg.BI'
 
Dim As Unsigned Long procSpeed
Dim As String procName
 
If ReadREG_SZ(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", procName) = REG_TRUE Then
    Print "Processor:", procName
End If
If ReadREG_DWORD(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz", procSpeed) = REG_TRUE Then
    Print "Processor Speed:", procSpeed / 1000; "GHz"
End If
 
'$Include:'WinReg.BM'

I divided by 1,000 because the value is in MHz, not GHz

[TerryRitchie]

@TerryRitchie

Here you go.

Code: (Select All)

Option Explicit
$NoPrefix
$Console:Only
 
'$Include:'WinReg.BI'
 
Dim As Unsigned Long procSpeed
Dim As String procName
 
If ReadREG_SZ(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", procName) = REG_TRUE Then
    Print "Processor:", procName
End If
If ReadREG_DWORD(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz", procSpeed) = REG_TRUE Then
    Print "Processor Speed:", procSpeed / 1000; "GHz"
End If
 
'$Include:'WinReg.BM'

I divided by 1,000 because the value is in MHz, not GHz

Excellent! Thank you. It's as simple as looking in the registry for the info. Much easier than I imagined.

[Ultraman]

Yep! It's quite easy to find the information. You can use what I sent and tweak for other information you might want from the registry.

[TerryRitchie]

Yep! It's quite easy to find the information. You can use what I sent and tweak for other information you might want from the registry.

Yep, that thought instantly came to my mind.

Where did WinReg.BI and WinReg.BM come from? Did you create these? Any documentation for them?

[Ultraman]

So, if we wanted to also include the motherboard manufacturer, BIOS version, and computer model name:

Code: (Select All)

Option Explicit
$NoPrefix
$Console:Only
 
'$Include:'WinReg.BI'
 
Dim As Unsigned Long procSpeed, biosMajor, BiosMinor
Dim As String procName, BiosVersion, systemVersion, systemManufacturer
 
If ReadREG_SZ(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", procName) = REG_TRUE Then
    Print "Processor:            "; procName
End If
If ReadREG_DWORD(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz", procSpeed) = REG_TRUE Then
    Print "Processor Speed:    "; procSpeed / 1000; "GHz"
End If
 
If ReadREG_SZ(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\BIOS", "SystemManufacturer", systemManufacturer) = REG_TRUE Then
    Print "System Manufacturer:  "; systemManufacturer
End If
If ReadREG_SZ(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\BIOS", "SystemVersion", systemVersion) = REG_TRUE Then
    Print "System Version:      "; systemVersion
End If
 
If ReadREG_DWORD(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\BIOS", "BiosMajorRelease", biosMajor) = REG_TRUE Then
    If ReadREG_DWORD(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\BIOS", "BiosMinorRelease", BiosMinor) = REG_TRUE Then
        Print Using "BIOS Version:        ##_.##"; biosMajor; BiosMinor
    End If
End If
 
'$Include:'WinReg.BM'