How to get system info....

[Hambone]

I have an example, but it doesn't show some of what I need an it's old...

What I want to do, is to get the following system information (from a system):

Name & Make of Processor
Current Processor Speed
Amount of Physical Memory

& (possibly) Name of vidoecard...

Thanks for any help

[Vlatko]

Public Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
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
Public si As SYSTEM_INFO

GetSystemInfo si
Debug.Print = si.dwProcessorType
'use other properties to access other stuff