日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

Option Explicit

Private Sub Command1_Click()
    On Error Resume Next
    Dim MsgValue As String
    Dim objWMIService As Object
    Dim objItem As Object, colItems As Object
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard", , 48)
    For Each objItem In colItems
        MsgValue = "Caption: " & objItem.Caption & vbCrLf & "SerialNumber: " & objItem.SerialNumber
    Next
    MsgBox MsgValue, , "MotherBoard Infomation"
End Sub

該文章在 2013/11/14 18:30:12 編輯過