Determine the Current Machine's Processor Type (e.g., 386, 486, Pentium)

Version Compatibility:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Private Type SYSTEM_INFO dwOemID As Long dwPageSize As Long lpMinimumApplicationAddress As Long lpMaximumApplicationAddress As Long dwActiveProcessorMask As Long dwNumberOfProcessors As Long dwProcessorType As Long dwAllocationGranularity As Long dwReserved As Long End Type Public Enum etProcessorType PROCESSOR_INTEL_386 = 386 PROCESSOR_INTEL_486 = 486 PROCESSOR_INTEL_PENTIUM = 586 PROCESSOR_MIPS_R4000 = 4000 PROCESSOR_ALPHA_21064 = 21064 End Enum Private m_typSystemInfo As SYSTEM_INFO