| 楼主 amulee |
Q：如何用VBA获取CPU使用率？ A：参考以下代码
 查询CPU使用率.rar |
| 2楼 清华 |
 |
| 3楼 wqfzqgk |
Sub test() Dim sComputerName, WMI_Obj, WMI_ObjProps, ObjClsItem sComputerName = Environ("computername") If Len(Trim(sComputerName)) = 0 Then sComputerName = "." Set WMI_Obj = GetObject("winmgmts:\\" & sComputerName & "\root\cimv2") Set WMI_ObjProps = WMI_Obj.ExecQuery("Select * from Win32_Processor", , 48) For Each ObjClsItem In WMI_ObjProps MsgBox "AddressWidth: " & ObjClsItem.AddressWidth MsgBox "Architecture: " & ObjClsItem.Architecture MsgBox "Availability: " & ObjClsItem.Availability MsgBox "Caption: " & ObjClsItem.Caption MsgBox "ConfigManagerErrorCode: " & ObjClsItem.ConfigManagerErrorCode MsgBox "ConfigManagerUserConfig: " & ObjClsItem.ConfigManagerUserConfig MsgBox "CpuStatus: " & ObjClsItem.CpuStatus MsgBox "CreationClassName: " & ObjClsItem.CreationClassName MsgBox "CurrentClockSpeed: " & ObjClsItem.CurrentClockSpeed MsgBox "CurrentVoltage: " & ObjClsItem.CurrentVoltage MsgBox "DataWidth: " & ObjClsItem.DataWidth MsgBox "Description: " & ObjClsItem.Description MsgBox "DeviceID: " & ObjClsItem.DeviceID MsgBox "ErrorCleared: " & ObjClsItem.ErrorCleared MsgBox "ErrorDescription: " & ObjClsItem.ErrorDescription MsgBox "ExtClock: " & ObjClsItem.ExtClock MsgBox "Family: " & ObjClsItem.Family MsgBox "InstallDate: " & ObjClsItem.InstallDate MsgBox "L2CacheSize: " & ObjClsItem.L2CacheSize MsgBox "L2CacheSpeed: " & ObjClsItem.L2CacheSpeed MsgBox "L3CacheSize: " & ObjClsItem.L3CacheSize MsgBox "L3CacheSpeed: " & ObjClsItem.L3CacheSpeed MsgBox "LastErrorCode: " & ObjClsItem.LastErrorCode MsgBox "Level: " & ObjClsItem.Level MsgBox "LoadPercentage: " & ObjClsItem.LoadPercentage MsgBox "Manufacturer: " & ObjClsItem.Manufacturer MsgBox "MaxClockSpeed: " & ObjClsItem.MaxClockSpeed MsgBox "Name: " & ObjClsItem.Name MsgBox "NumberOfCores: " & ObjClsItem.NumberOfCores MsgBox "NumberOfLogicalProcessors: " & ObjClsItem.NumberOfLogicalProcessors MsgBox "Othe**milyDescription: " & ObjClsItem.Othe**milyDescription MsgBox "PNPDeviceID: " & ObjClsItem.PNPDeviceID MsgBox "PowerManagementCapabilities: " & ObjClsItem.PowerManagementCapabilities MsgBox "PowerManagementSupported: " & ObjClsItem.PowerManagementSupported MsgBox "ProcessorId: " & ObjClsItem.ProcessorId MsgBox "ProcessorType: " & ObjClsItem.ProcessorType MsgBox "Revision: " & ObjClsItem.Revision MsgBox "Role: " & ObjClsItem.Role MsgBox "SocketDesignation: " & ObjClsItem.SocketDesignation MsgBox "Status: " & ObjClsItem.Status MsgBox "StatusInfo: " & ObjClsItem.StatusInfo MsgBox "Stepping: " & ObjClsItem.Stepping MsgBox "SystemCreationClassName: " & ObjClsItem.SystemCreationClassName MsgBox "SystemName: " & ObjClsItem.SystemName MsgBox "UniqueId: " & ObjClsItem.UniqueId MsgBox "UpgradeMethod: " & ObjClsItem.UpgradeMethod MsgBox "Version: " & ObjClsItem.Version MsgBox "VoltageCaps: " & ObjClsItem.VoltageCaps Exit For Next End Sub |
| 4楼 wqfzqgk |
wmi有600多个函数，基本都包括了windows中大部分硬件及配置方面的信息。 |