[AL_BRNS]

السلام عليكم ورحمة الله وبركاته

جرب التالي

PHP كود :

Private Sub Command1_Click()
Dim r As Object
Dim y
Set r = CreateObject("winmgmts:")
Set y = r.instancesof(" Win32_baseboard")
For Each t In y
MsgBox t.SerialNumber
Next
End Sub 


بالتوفيق