Private Type OSVERSIONINFO
                  dwOSVersionInfoSize   As Long
                  dwMajorVersion   As Long
                  dwMinorVersion   As Long
                  dwBuildNumber   As Long
                  dwPlatformId   As Long
                  szCSDVersion   As String * 128                   '     Maintenance   string   for   PSS   usage
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Const VER_PLATFORM_WIN32_NT = 2
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32s = 0

Private Sub Command1_Click()
Dim len5 As Long, aa       As Long
          Dim cmprName As String
          Dim osver As OSVERSIONINFO
          Dim Computer As String
          Dim CPUs As Object
         
          '取得Computer   Name
          cmprName = String(255, 0)
          len5 = 256
          aa = GetComputerName(cmprName, len5)
          cmprName = Left(cmprName, InStr(1, cmprName, Chr(0)) - 1)
         
          Text2.Text = cmprName
          Computer = cmprName                     '取得CPU端口号
          Set CPUs = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2").ExecQuery("select   *   from   Win32_Processor")
          For Each MyCpu In CPUs                   '《《《《《====在这一句上停顿的时间太长
              Text1.Text = MyCpu.ProcessorId
          Next

End Sub

要查询每个CPU，现在是多核的要等到CPU分配到时间。
建议用其它办法获取。用WMI方式就比较慢。一般是先获取(在没有使用前+反应时间）

有什么其他方式呢？要防止使用第三方软件模拟CPU的ID，只能直接获取可能比较保险，什么方法指点一下，给个代码吧！