Jayanta Modak Ответов: 1

Как получить только внутренние данные жесткого диска.... Пожалуйста, помогите мне

Как я могу получить внутренний HDD_DETLAIS = SerialNumber, модель, производитель,TotalHeads ...... и т. д.
Пожалуйста, помогите мне.. Теперь моя проблема заключается в том, что мой код работает нормально, но когда я вставляю внешний жесткий диск или перьевой накопитель, а затем показываю последние данные Счетного устройства, пожалуйста, помогите ....
я хочу показать только внутреннее устройство HHD означает, что ОС загружена диском "C" drive
Спасибо

Что я уже пробовал:

Dim HDD_DETLAIS As String
Dim HDD As New ManagementObjectSearcher("select * from Win32_DiskDrive")
For Each HDDDET In HDD.Get
   HDD_DETLAIS = HDDDET("SerialNumber") + 
   "   Model-" + HDDDET("Model") + 
   "   Manufacturer-- " + HDDDET("Manufacturer") 
' + "  TotalHeads  -  " + hd("TotalHeads") '+ "   Signature - " + hd("Signature")
            
    TextBox1.Text = HDD_DETLAIS

Next

1 Ответов

Рейтинг:
1

OriginalGriff

Просто - посмотрите на свой код:

For Each HDDDET In HDD.Get
    HDD_DETLAIS = ...
    TextBox1.Text = HDD_DETLAIS
Next
Каждый раз, когда вы обходите цикл, вы положительно устанавливаете содержимое текстового поля - поэтому, когда вы заканчиваете цикл, вы всегда будете показывать последний элемент, для которого вы установили информацию.

Если у вас есть два жестких диска, вы всегда будете видеть второй.
Если вы вставите USB-накопитель, вы увидите это.

Решите, что именно вы хотите увидеть, и когда вы найдете это в цикле, вырвитесь из него с помощью Exit For