Getcpuid.dll 获取的id只有8位，下面简短的代码返回的是16位16进制的字符串。

　　首先必须引用 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

　　更多信息请访问：计算机等级考试站　计算机等级考试在线题库　计算机等级考试论坛