Как узнать тип процессора? - VB

Формулировка задачи:

Всем доброго времени суток! Казалось бы, узнать тип процессора в VB несложно. Делается это через WinAPI-функцию GetSystemInfo. Функция возвращает информацию о системе в структуру SYSTEM_INFO. Переменная dwProcessorType будет содержать информацию о типе процессора. Но дальше начинается самое интересное: у меня стоит 2-х ядерный AMD, а dwProcessorType выдаёт 586, что означает Intel -586 (согласно MSDN). Порывшись на MSDN, находим: "dwProcessorType устаревший элемент, оставленный для совместимости. Используй wProcessorArchitecture, wProcessorLevel и wProcessorRevision для определения типа процессора". Это конечно хорошо, но объявление SYSTEM_INFO в VB6 выглядит так:

                    Листинг программы
                
 
                        
                          
                    
Public Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long
End Type

В этом объявлении нет dwProcessorArchitecture, wProcessorLevel Посоветуйте, как в VB6 получить правильную информацию о типе процессора.

Решение задачи: «Как узнать тип процессора?»

textual
                            Листинг программы 
                        
Debug.? Environ("PROCESSOR_IDENTIFIER")