[aljzazy]

(25-04-23, 11:18 PM)ابو محمد محمد محمد كتب : جزاك الله كل خير ساحاول التغيير فيه فيبدو انه يجلب الرقم المنطقي وليس الحقيقي للقرص الصلب

بالنسبة للهارديسك يوجد فيه النالي :
1. disk id
2. disk serial number
3. disk modle

وهذه فنكشين تجلبهم 

كود :

Public diskId As String 'Digital ID
   Public diskSerialNumber As String 'This we will call it the serial number for the time being.
   Public diskModel As String 'serial number

Public Sub Get_Hard_Serial()
       Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")

       For Each cmicWmiObj As ManagementObject In cmicWmi.Get
           diskId = cmicWmiObj("signature")
           diskSerialNumber = cmicWmiObj("serialnumber")
           diskModel = cmicWmiObj("Model")
       Next
   End Sub