|
È¡µÃµçÄÔ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
--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
ûÓÐÏà¹ØÎÄÕÂ
|
|
|
|
