取得电脑CPU的名称及速度

xingzhihao

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

这个函数在我的机器可以用(ME+ACCESS2000)

shfcf

win2000+access2000 也行！！