[عبد العزيز البسكري]

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

لعلّه يفي بالغرض إن شاء الله .. مع إضافة المكتبة بالكود أعلاه من خلال REFERENCE

كود :

Imports System.Management
Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim HDD_Serial As String
       Dim hdd As New ManagementObjectSearcher("select * from Win32_DiskDrive")
       For Each hd In hdd.Get
           HDD_Serial = hd("SerialNumber")
       Next
       TextBox1.Text = HDD_Serial
   End Sub
End Class

تحياتي