VB6 獲取CPUID的幾種方法

第一種：API： 

  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   
    
  Public   Function   GetCPUid()   As   String   
    
          On   Error   GoTo   doError   
            
          Dim   len5   As   Long,   aa   As   Long   
          Dim   cmprName   As   String   
          Dim   Computer   As   String   
          Dim   CPUs   As   Object,   MyCpu   As   Object   
          Dim   osver   As   OSVERSIONINFO   
          Dim   SerialNo   As   String   
    
          '取得Computer   Name   
          cmprName   =   String(255,   0)   
          len5   =   256   
          aa   =   GetComputerName(cmprName,   len5)   
          cmprName   =   Left(cmprName,   InStr(1,   cmprName,   Chr(0))   -   1)   
          Computer   =   cmprName                 '取得CPU埠號   
          Set   CPUs   =   GetObject("winmgmts:{impersonationLevel=impersonate}!\\"   &   Computer   &   "\root\cimv2").ExecQuery("select   *   from   Win32_Processor")   
          For   Each   MyCpu   In   CPUs   
                  SerialNo   =   MyCpu.ProcessorId   
                  Exit   For   
          Next   
          GetCPUid   =   SerialNo   
          Exit   Function   
  doError:   
          GetCPUid   =   ""   
    End   Function   
第二種：使用類：

 'Microsoft   WMI   Scripting   V1.1   Library的引入   
    Public Function GetProcessorID() As String

      Dim a     As SWbemServices

      Dim b     As SWbemObjectSet

      Dim c     As SWbemObject

      Dim d     As SWbemPropertySet

      Dim e     As SWbemProperty

      Dim str As String

      

          

      Set a = GetObject("winmgmts:")

      Set b = a.InstancesOf("Win32_Processor")

      For Each c In b

            With c

                If .Properties_.Count > 0 Then

                    Set d = .Properties_

                      

                    For Each e In d

                      If UCase(e.Name) = UCase("ProcessorId") Then

                          str = e.Value

                      End If

                        

                    Next

                End If

            End With

      Next

      GetProcessorID = str

      

  End Function