如何使用WindowsWMI组件来识别CPUID
- | r7 }+ v: rGetcpuid.dll 获取的id只有8位，下面简短的代码返回的是16位16进制的字符串。$ _; F& d) }& b" E/ C
首先必须引用 Microsoft WMI Scripting Library! K; e: x ~/ @5 N& s3 W' d" }( j9 P
Option Compare Database
( h& H! X3 v/ f0 Y0 c( B0 k Sub wmiProcessorID()9 T, i+ e2 O( n" l1 M
Dim cpuSet As SWbemObjectSet- m. k f1 S+ j- I
Dim cpu As SWbemObject
3 g, b5 }5 g/ ]1 ^% X2 Y. S Set cpuSet = GetObject( "winmgmts:{impersonationLevel=impersonate}"). _
( g" X. n' I k# e& E- _1 f InstancesOf( "Win32_Processor")
; _9 V" M" `% g# [6 K For Each cpu In cpuSet
( _4 I9 I: J, W8 E8 T$ K3 ]8 g! S2 _ MsgBox cpu.ProcessorId, a1 U7 z# C( I- ^# [
Next9 L% F( C0 ^* N" p0 n
End Sub |
发表于 2012-7-31 22:26:35
