[أبوسعود]

Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")

            For Each dvs As ManagementObject In hd.Get()

لم يتم التعرف على الدالتين المذكورتين باللون الاحمر ... شو المشكلة
علماً بأنني قمت باستدعاء المكتبة بالكود Imports System.Management