[荐]获取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群 (群号:54525238)
Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)