Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

取得电脑CPU的名称及速度

1970-1-1 08:00| 发布者: chijanzen| 查看: 2087| 评论: 0

Public Function ProcessorSpeed() As String
'取得电脑CPU的名称及速度
Dim MyOBJ As Object
Dim cpu As Object
Set MyOBJ = GetObject("WinMgmts:").instancesof("Win32_Processor")
For Each cpu In MyOBJ
ProcessorSpeed = cpu.Name & " " & cpu.CurrentClockSpeed & " Mhz"
Next
End Function

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

取得电脑CPU的名称及速度

最新评论

相关分类