[原创]一句优化代码 取得 CUP 序列号

ldy

Sub getCPUID()
MsgBox GetObject("winmgmts:").ExecQuery("Select ProcessorID From Win32_Processor ")("Win32_Processor.DeviceID='CPU0'", 1).ProcessorId
End Sub

lvyanfu

顶一下。

白海豚

试试去。。。

hxqzccct

顶 

hhzjxss

果然厉害，一句话就搞定了，我看了原来的都是很多句代码！

qee用

谢谢ldy888兄分享.

这是在CSDN搜到的,原贴说未验证于AMD.放在一起,供大家参考.

Sub GetCpu()
  Dim cpuSet As SWbemObjectSet
  Dim cpu As SWbemObject
  'only 1 cpu
  Debug.Print GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")("Win32_Processor.DeviceID='CPU0'").processorid
  'more than 1 cpu
  Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
  For Each cpu In cpuSet
    Debug.Print cpu.processorid
  Next
End Sub

hhzjxss

 Dim cpuSet As SWbemObjectSet

这一句说“用户类型未定义”？？？

qee用

哦,忘了,需引用 Microsoft WMI Scripting V1.x Library

hhzjxss

QUOTE:

以下是引用qee用在2007-7-31 9:10:54的发言：

哦,忘了,需引用 Microsoft WMI Scripting V1.x Library

我说呢，怎么我去掉  Dim cpuSet As SWbemObjectSet和  Dim cpu As SWbemObject反而可以运行了！

试试看，是不是一个CPU和多个CPU的都可以！

[此贴子已经被作者于2007-7-31 9:16:58编辑过]

仔仔

好像在这个版块看过,不过这个简短了一点