تعرف على رقم الهارد

 'Please Add a Text1




Public Sub GetHardID()
 Dim HardDiskSerial As SWbemObjectSet
 Dim Hd As SWbemObject
  Set HardDiskSerial = GetObject("winmgmts:{impersonationLevel=impersonate}") _
                                 .InstancesOf("Win32_PhysicalMedia")
   For Each Hd In HardDiskSerial
     Text1.Text = Hd.Serialnumber
   Next
End Sub

Private Sub Form_Load()
Call GetHardID
End Sub

Hard_SerialNumber.zip