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

qee用

QUOTE:

以下是引用hhzjxss在2007-7-31 9:16:03的发言：我说呢，怎么我去掉  Dim cpuSet As SWbemObjectSet和  Dim cpu As SWbemObject反而可以运行了！

嗯,是不需要.

如果Option Explicit 可以简单地声明一下Dim ... (as object)

hhzjxss

怎么运行一次会给出两个CPU号呢？

qee用

QUOTE:

以下是引用hhzjxss在2007-7-31 9:33:17的发言：

怎么运行一次会给出两个CPU号呢？

呵呵,是这样.这段代码是搜来的,我对wmi的使用也不懂

ldy

用兄的代码和我的用于 AMD 的 一样OK

两个代码开后首次运行耗时相同，

不同的是 优化过的代码以后的每次运行速度快了许多。大约快50倍

关键在这一句 Select rocessorId From Win32_Processor

而一般的例子是这样的Select * From Win32_Processor

感觉像ADO语句 于是加了 ProcessorId 居然成功。

返回的内容少了自然就快了

ldy

QUOTE:

以下是引用hhzjxss在2007-7-31 9:33:17的发言：

怎么运行一次会给出两个CPU号呢？

用版的代码实际是两个例子，

  Debug.Print GetObject("winmgmts:").InstancesOf("Win32_Processor")("Win32_Processor.DeviceID='CPU0'").processorid

返回第一个CPUID

 

 

  Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
  For Each cpu In cpuSet
    Debug.Print cpu.processorid
  Next

返回所有CPUID

一般机子都只有一个CPU 所以这两段代码所返回的结果一样。

 

老糊涂

谢谢分享