How to get system info....

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

Code:

---

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

---