Office中国论坛/Access中国论坛

标题: 取得电脑CPU的名称及速度 [打印本页]

作者: xingzhihao 时间: 2003-9-28 20:00
标题: 取得电脑CPU的名称及速度
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
以上代码，提示错误：

文件名或类未找到——
Set MyOBJ = GetObject("WinMgmts:").instancesof("Win32_Processor")
是否需要引用？
请各位大虾指点。
我的系统WIN98+ACC2000

作者: eio 时间: 2003-9-28 21:50
这个函数在我的机器可以用(ME+ACCESS2000)

作者: shfcf 时间: 2003-10-7 05:56
win2000+access2000 也行！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)