如何用wmi返回主板序列号

Question

如题

Answer 1

我以前写了个函数，获取主板的序列号，下面是源代码：Function GetMainboardSerialNumber() As String
    On Error Resume Next
    Dim strComputer
    Dim objWMIService
    Dim objItem
    Dim strOption
    Dim colItems
    GetMainboardSerialNumber = ""
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
    For Each objItem In colItems
        If objItem.SerialNumber <> "" Then
           GetMainboardSerialNumber = objItem.SerialNumber
           Exit Function
        End If
    Next
End Function调用：Private Sub Command1_Click()
    MsgBox "主板序列号为： " & GetMainboardSerialNumber
End Sub