[原创]如何用vba获取硬件序列号(如cpu的序列号),谢谢!

seeking

错误： 找不到文件 getcpuid

网卡序列号不知道是不是物理地址，如果是物理地址有更简单的方法：


'获取IP地址
Private Function GetIP_MAC()
    Dim strComputer As String
    Dim objWMI As Object
    Dim colIP As Object
    Dim IP As Object
    Dim i As Integer
    Dim str As String
    strComputer = "."
    Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colIP = objWMI.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    For Each IP In colIP
        If Not IsNull(IP.IPAddress) Then
            For i = LBound(IP.IPAddress) To UBound(IP.IPAddress)
                 str = str + IP.IPAddress(i) + "; " + IP.MACAddress(i) + ";"
            Next
        End If
    Next
    GetIP_MAC = str
End Function
所有的ip及物理地址都取出来了。