GetCpuInfo – Retrieve information about the CPU

GetCpuInfo – Retrieve information about the CPU

Const HKEY_LOCAL_MACHINE = &H80000002' Information about the CPU' you can pass a number <>1 to the last argument to retrieve' information on all the processors in a multi-CPU system'' Returns null strings or MHz=-1 if keys aren't found'' Requires the GetRegistryValue routineSub GetCpuInfo(Description As String, Vendor As String, MHz As Integer, _    Optional CpuNumber As Integer = 1)    Dim keyName As String, speed As String        keyName = "HardwareDescriptionSystemCentralProcessor" & CStr(CpuNumber - _        1)    ' description and vendor info are kept in these keys    Description = GetRegistryValue(HKEY_LOCAL_MACHINE, keyName, "Identifier", _        "")    Vendor = GetRegistryValue(HKEY_LOCAL_MACHINE, keyName, "VendorIdentifier", _        "")        ' speed is stored as an hex number    speed = GetRegistryValue(HKEY_LOCAL_MACHINE, keyName, "~MHz", "")    If LCase$(Left$(speed, 2)) = "0x" Then        MHz = Val("&H" & Mid$(speed, 3))    Else        MHz = -1    End IfEnd Sub

See also  5 Ways to Improve Customer Experience

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist