[ابراهيم ايبو]

السلام عليكم ياعريس
تفضل واتدلل

كود :

   Dim con As ConnectionOptions = New ConnectionOptions
       Dim machineName As String = System.Environment.MachineName
       Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
       Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM win32_PhysicalMedia")
       Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
       Dim queryCollection As ManagementObjectCollection = moss.Get
       For Each getnow As ManagementObject In queryCollection
           If getnow.Item("Tag") = "\\.\PHYSICALDRIVE0" Then
               TextBox1.Text = (getnow("SerialNumber").ToString().Trim())
           End If
       Next
       Dim MOS_HD As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
       Dim mo_HD As ManagementObject
       For Each mo_HD In MOS_HD.Get()
           TextBox5.Text = mo_HD("Model").ToString()
       Next

وهذا الكود لمعرفة نوع الهارد وحجمه

كود :

  ' هذا الكود يجلب نوع الهارد ديسك وحجمه
       Dim MOS_HD As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
       Dim mo_HD As ManagementObject
       For Each mo_HD In MOS_HD.Get()
           TextBox1.Text = mo_HD("Model").ToString()
       Next