高手请进，高分请教一个问题！

[zhoulove8526]

VB中怎样获得CPU的ID，有源码更好
E-mail:[e-mail]
问题解决马上结贴

[zhoulove8526]

你们说的那些好像都不行啊

hisofty(瘦马) 那个程序好像只能得出类型吧，没有ID号

急急急急急急急急急急急急急急急急急急急急！

[hisofty]

http://www.sijiqing.com/vbgood/experience/index.asp?action=read&id=3340

[online]

http://expert.csdn.net/Expert/topic/2664/2664732.xml?temp=.367367

[hisofty]

Detect cpu make, model, features, cache, speed etc.

http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=49073&lngWId=1
http://rr.exhedra.com/Upload_PSC/ScreenShots/PIC200310141336173687.JPG

[tztz520]

gz

[chinaren502]

'用WMI,记得先工程-引用 Microsoft WMI Scripting V1.1 Library
'以下是获得CPU ID

Private Sub Command1_Click()
wmiProcessorInfo
End Sub

Private Sub wmiProcessorInfo()

Dim wmiObjSet As SWbemObjectSet
Dim obj As SWbemObject

Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_Processor")

On Local Error Resume Next

For Each obj In wmiObjSet
MsgBox obj.ProcessorId
Next
End Sub

[zhoulove8526]

TO chinaren502(星星知我心)

你的那个程序在我这没有用
我引用的是 Microsoft WMI Scripting V1.2 Library