داله لمعرفة رقم الماذربورد

Sub Test_MBSerialNumber_UDF()

    MsgBox MBSerialNumber

End Sub



Function MBSerialNumber(Optional strComputer As String = ".") As String

    Dim v           As Variant

    Dim vName       As Variant

    Dim vUUID       As Variant



    With GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

        For Each v In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", , 48)

            vName = v.Name

            vUUID = v.UUID

        Next v

    End With



    MBSerialNumber = vName & ", " & vUUID

End Function