Is there a way to get the specific CPU Type using MS Access 2000 VBA?
I have the following code that only returns 586 for a Pentium type
machine rather than the specific Pentium type.
Any help is appreciated.
lq
Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As
SYSTEM_INFO)
Public Function atGetSysStatus(intStatus As Integer) As Variant
'>purpose: Retrieve system status information
'>accepts: intStatus: which piece of information to retrieve
'> 1: The number of CPUs in the system
'> 2: The type of CPUs in the system
On Error Resume Next
Dim SI As SYSTEM_INFO
Dim CPUType$
GetSystemInfo SI
Select Case intStatus
Case 1
atGetSysStatus = SI.dwNumberOrfProcessors
Case 2
CPUType = SI.dwProcessorType
If CPUType = "586" Then
atGetSysStatus = "Pentium"
Else
atGetSysStatus = CPUType
End If
Case Else
atGetSysStatus = 0
End Select
End Function