[荐]获取CPU信息
时 间:2008-07-04 09:32:45
作 者:fan0217 ID:8 城市:上海 QQ:2851379730
摘 要:获取CPU信息
正 文:
Type CPUInfo
AddressWidth As String
Architecture As String
Availability As String
Caption As String
ConfigManagerErrorCode As String
ConfigManagerUserConfig As String
CpuStatus As String
CreationClassName As String
CurrentClockSpeed As String
CurrentVoltage As String
DataWidth As String
Description As String
DeviceID As String
ErrorCleared As String
ErrorDescription As String
ExtClock As String
Family As String
InstallDate As String
L2CacheSize As String
L2CacheSpeed As String
LastErrorCode As String
Level As String
LoadPercentage As String
Manufacturer As String
MaxClockSpeed As String
Name As String
OtherFamilyDescription As String
PNPDeviceID As String
PowerManagementCapabilities As String
PowerManagementSupported As String
ProcessorId As String
ProcessorType As String
Revision As String
Role As String
SocketDesignation As String
Status As String
StatusInfo As String
Stepping As String
SystemCreationClassName As String
SystemName As String
UniqueId As String
UpgradeMethod As String
Version As String
VoltageCaps As String
End Type
'===============================================================================
'-函数名称: GetCPUInfo
'-功能描述: 获取CPU信息
'-输入参数说明:
'-返回参数说明: 返回CPU的一系列信息
'-使用语法示例: Msgbox GetCPUInfo.Caption
'-参考:
'-使用注意: 使用本函数时请保留函数信息内容
'-兼容性: 2000,XP,2003
'-作者: fan0217@163.com
'-更新日期: 2006-05-20
'===============================================================================
Function GetCPUInfo() As CPUInfo
On Error Resume Next
Dim objWMIService As Object
Dim objItem As Object
Dim colItems As Object
Set objWMIService = GetObject("winmgmts://./root/cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor", , 48)
For Each objItem In colItems
With GetCPUInfo
.AddressWidth = objItem.AddressWidth
.Architecture = objItem.Architecture
.Availability = objItem.Availability
.Caption = objItem.Caption
.ConfigManagerErrorCode = objItem.ConfigManagerErrorCode
Access软件网官方交流QQ群 (群号:483923997)
Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)