WMI без LINQ

[FireFenix]

Создал обычный VB.NET проект и накодил через WMI сбор данных о машине... После чего полез в свойства проекта и увидел кучу лишних рефренсов... после того как убрал System.Linq убрался доступ к элементам коллекции ManagementObjectCollection

Т.е. делал :

Код: Выделить всё

Dim Query As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
Dim qCollection As ManagementObjectCollection = Query.Get()

'Class 'System.Management.ManagementObjectCollection' cannot be indexed because it has no default property
qObject = qCollection(0) 'Вылетает с ошибкой что немогёт обратиться к элементу коллекции


Я раньше делал через For, а щас сделал через For Each qObject In qCollection
Иногда индексы 2 коллекций зависимы.... Можно ли как нить обратиться к соответствующим элементам? Ну т.е. Linq лишило возможности прямого обращения к элементу

И как обратиться к первому элементу коллекции?

[Williams]

'Class 'System.Management.ManagementObjectCollection' cannot be indexed because it has no default property

Юзай GetEnumerator

[FireFenix]

'Class 'System.Management.ManagementObjectCollection' cannot be indexed because it has no default property

Юзай GetEnumerator

Точно! ... А я тут панику развёл =)

Код: Выделить всё

        Dim Query As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
        Dim qEnum As ManagementObjectCollection.ManagementObjectEnumerator = Query.Get().GetEnumerator
        Dim qObject As New ManagementObject


        qEnum.MoveNext()
        qObject = qEnum.Current


Пасиб! =)