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'