Access培训-Access开发平台-Access行业开发
Access交流网(免费Access交流)
QQ:18449932
网 址:www.access-cn.com
' 首先必须引用 Microsoft WMI Scripting Library
Sub wmiProcessorID()
Dim cpuSet As SWbemObjectSet Dim cpu As SWbemObject Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _ InstancesOf("Win32_Processor") For Each cpu In cpuSet MsgBox cpu.ProcessorId Next End Sub