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
'用WMI,记得先工程-引用 Microsoft WMI Scripting V1.1 Library '以下是获得CPU IDPrivate Sub Command1_Click() wmiProcessorInfo End SubPrivate 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
TO chinaren502(星星知我心) 你的那个程序在我这没有用 我引用的是 Microsoft WMI Scripting V1.2 Library
http://rr.exhedra.com/Upload_PSC/ScreenShots/PIC200310141336173687.JPG
'以下是获得CPU IDPrivate Sub Command1_Click()
wmiProcessorInfo
End SubPrivate 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
我引用的是 Microsoft WMI Scripting V1.2 Library