请问大家非常一个棘手的问题，若能解决高分奉上，另外UP者均有分相送！

Question

我原来VB获取过网卡的MAC地址，但是没有听说过主板和CPU也有唯一的序列号，并且可以获取。现在由于系统的需要，要我写一个获取CPU和主板序列号的程序，我现在对这个方面又不太了解，一点头绪也没有，不知道从何处下手。请各位有此方面经验的CSDN朋友来帮我解决这个问题。在下不甚感激！

Answer 1

=========================================================================================
' 目　　的：    取得主机板号码。
' 参考数据：    WMI Object Browser。
'=========================================================================================
Public Function MBSerialNumber() As String
    
    Dim obj                             As Object
    Dim objs                            As Object
    Dim strAnswer                       As String
    
    Set objs = GetObject("WinMgmts:").InstancesOf("Win32_BaseBoard")
        
    ' 取出所有主机板的序号。
    For Each obj In objs
        strAnswer = strAnswer & obj.SerialNumber
        If strAnswer < objs.Count Then
            strAnswer = strAnswer & ","
        End If
    Next
    
    MBSerialNumber = strAnswer
End Function
得到CPU序列号。********函数引用方法：AA = CPUInof_ME() (其中AA应为String类型)********
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 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 TypePublic Function CPUInfo_ME() As String
    Dim len5 As Long, aa As Long
    Dim cmprName As String
    Dim osver As OSVERSIONINFO
    '取得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
      CPUInfo_ME = mycpu.ProcessorId
    Next
End Function

Answer 2

看到过关于发、用VB读CPU序列号的帖子，本人用不到就没有记下来。
帮你UP

Answer 3

一个利用微软提供的WMI实现获取系统信息的代码集合，包括获得系统信息、主板信息、BIOS信息等10个单独的源程序:
http://www.applevb.com/sourcecode/wmi.rar不使用任何DLL，获得CPU完整信息的代码。可以获得CPU的几十项信息:
http://www.applevb.com/sourcecode/Detect%20cpu.zip

Answer 4

谢谢楼上的各位！我只知道的网卡的MAC地址是唯一的。获取的这些序列号是不是唯一的？若是的话也可以唯一标识每一太计算机。