[عمور2016]

(23-02-18, 12:44 AM)عبد العزيز البسكري كتب :

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

لعلّه يفي بالغرض إن شاء الله .. مع إضافة المكتبة بالكود أعلاه من خلال 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

تحياتي

ManagementObjectSearcher
يعطيني خطأ في هذا السطر ارجو الافادة