السلام عليكم كيف ينجح معي هذا الكود
Sub test()
Dim s As String
With GetObject("winmgmts:\\.\root\CIMV2")
For Each itm In .ExecQuery("SELECT * FROM Win32_DiskDrive", , 48)
s = s & "SerialNumber: " & itm.SerialNumber & vbCrLf
s = s & "Model: " & itm.Model
Next itm
End With
MsgBox s
End Sub