CPU Type and Speed

[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