在MS Access VBA中获取处理器核心数

Function GetProcessorCoreCount() As Integer
    Dim objWMIService As Object
    Dim colProcessors As Object
    Dim objProcessor As Object
    Dim coreCount As Integer
    
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colProcessors = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")
    
    For Each objProcessor In colProcessors
        coreCount = objProcessor.NumberOfCores
        Exit For
    Next objProcessor
    
    GetProcessorCoreCount = coreCount
End Function

Sub Test()
    Dim coreCount As Integer
    
    coreCount = GetProcessorCoreCount()
    MsgBox "处理器核心数：" & coreCount
End Sub