Getcpuid.dll 獲取的id只有8位,下面簡短的代碼返回的是16位16進(jìn)制的字符串。
首先必須引用 Microsoft WMI Scripting Library
Option Compare Database
Sub wmiProcessorID()
Dim cpuSet As SWbemObjectSet
Dim cpu As SWbemObject
Set cpuSet = GetObject( "winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf( "Win32_Processor")
For Each cpu In cpuSet
MsgBox cpu.ProcessorId
Next
End Sub
首先必須引用 Microsoft WMI Scripting Library
Option Compare Database
Sub wmiProcessorID()
Dim cpuSet As SWbemObjectSet
Dim cpu As SWbemObject
Set cpuSet = GetObject( "winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf( "Win32_Processor")
For Each cpu In cpuSet
MsgBox cpu.ProcessorId
Next
End Sub