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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
