Insérez le code suivant sous la ligne de code "Private Sub ButtonSerialNum_Click (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) Poignées ButtonSerialNum.Click":
Dim oMotherB As Object = Nothing
Dim sMBsernumb As String = Nothing
Dim oWMG As Object = GetObject ("Winmgmts:")
oMotherB = oWMG.InstancesOf ("Win32_BaseBoard")Pour chaque obj As Object Dans oMotherB
sMBsernumb + = obj.SerialNumber
Suivant
MsgBox (sMBserial)