NumberOfCPUs – The number of processors

NumberOfCPUs – The number of processors

Const HKEY_LOCAL_MACHINE = &H80000002' Return the number of processors'' Requires the CheckRegistryKey routineFunction GetNumberOfCPUs() As Integer    Dim keyName As String    ' loop on the subkeys of HKEY_LOCAL_MACHINEHardwareDescriptionSystem    ' CentralProcessor    ' subkeys are zero-based    Do        GetNumberOfCPUs = GetNumberOfCPUs + 1        keyName = "HardwareDescriptionSystemCentralProcessor" & CStr _            (GetNumberOfCPUs)        ' if this key doesn't exist, then GetNumberOfCPUs        ' contains the number of keys found so far    Loop While CheckRegistryKey(HKEY_LOCAL_MACHINE, keyName)    End Function

See also  5 Benefits of Using Time Tracking Software

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