遍历wmi查询结果

Question

我正在编写代码以使用vb net和wmi检索计算机信息。 但是我无法遍历wmi查询的结果。因此只能将最后一个结果添加到列表视图中。

Dim objdisk As ManagementObjectSearcher
Dim objMgmt As ManagementObject
objdisk = New ManagementObjectSearcher("SELECT * FROM Win32_logicaldisk")

For Each objMgmt In objdisk.Get

dim countstorage as integer=1
harddiskdeviceid= objMgmt("caption").ToString
harddiskfreespace= objMgmt("freespace").ToString()

listviewstorage.Items.Add(harddiskdeviceid.ToString)
listviewstorage.Items(countstorage - 1).SubItems.Add(harddiskfreespace.ToString)
countstorage = countstorage-1

Next

im意识到这一定是因为im在每个循环而不是for循环中使用了， 但是我似乎找不到找到与ManagementObject进行循环的方法。

有什么办法做类似的事情

for x as integer = 0 to objdisk.items.count

listviewstorage.Items.Add(harddiskdeviceid.ToString)
listviewstorage.Items(x).SubItems.Add(harddiskfreespace.ToString)

next