473,320 Members | 1,982 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

CPU Type in Access VBA?

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
Nov 12 '05 #1
2 3124
On Thu, 11 Dec 2003 23:59:59 GMT in comp.databases.ms-access, Chuck
Grimsby <c.*******@worldnet.att.net.invalid> wrote:

http://www.mvps.org/vbnet/index.html...systeminfo.htm

FYI: Intel Pentium chips above version 3 or 4 really don't identify
themselves.


Neither do AMDs with that one.

My results:
Number Of Processors 1
Processor Type 586 Pentium
Processor Level 6 Intel Pentium Pro, II, III
or 4
Processor Revision 1538 Model 6, Stepping 2
CPU Speed 1664 MHz

My CPU is an AMD XP2000+

Environ("PROCESSOR_IDENTIFIER") may help.

On mine: x86 Family 6 Model 6 Stepping 2, AuthenticAMD
--
A)bort, R)etry, I)nfluence with large hammer.
Nov 12 '05 #2
How come you can get the specific CPU into in Windows/My
Coumputer/Properties/General and not through VBA?
Also, I have a 2.0 GHZ P4 and it returns SI.wProcessorLevel = 15 so I
added:

Private Const PROCESSOR_LEVEL_PENTIUMIV As Long = 15.

There must be some SI.wProcessorLevel return values between 6 and
15???

Private Const PROCESSOR_LEVEL_80386 As Long = 3
Private Const PROCESSOR_LEVEL_80486 As Long = 4
Private Const PROCESSOR_LEVEL_PENTIUM As Long = 5
Private Const PROCESSOR_LEVEL_PENTIUMII As Long = 6
???
Private Const PROCESSOR_LEVEL_PENTIUMIV As Long = 15
lq
Trevor Best <bouncer@localhost> wrote in message news:<5f********************************@4ax.com>. ..
On Thu, 11 Dec 2003 23:59:59 GMT in comp.databases.ms-access, Chuck
Grimsby <c.*******@worldnet.att.net.invalid> wrote:

http://www.mvps.org/vbnet/index.html...systeminfo.htm

FYI: Intel Pentium chips above version 3 or 4 really don't identify
themselves.


Neither do AMDs with that one.

My results:
Number Of Processors 1
Processor Type 586 Pentium
Processor Level 6 Intel Pentium Pro, II, III
or 4
Processor Revision 1538 Model 6, Stepping 2
CPU Speed 1664 MHz

My CPU is an AMD XP2000+

Environ("PROCESSOR_IDENTIFIER") may help.

On mine: x86 Family 6 Model 6 Stepping 2, AuthenticAMD

Nov 12 '05 #3

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

5
by: Tongu? Yumruk | last post by:
I have a little proposal about type checking in python. I'll be glad if you read and comment on it. Sorry for my bad english (I'm not a native English speaker) A Little Stricter Typing in Python...
3
by: Carl Lindmark | last post by:
*Cross-posting from microsoft.public.dotnet.languages.csharp, since I believe the question is better suited in this XML group* Hello all, I'm having some problems understanding all the ins and...
100
by: E. Robert Tisdale | last post by:
What is an object? Where did this term come from? Does it have any relation to the objects in "object oriented programming"?
5
by: Arnaud Legrand | last post by:
Hello, I have a question about portability and I have not found the answer in the FAQ. I have different modules to build. All of them have the same private part and a common public part (though...
0
by: Nashat Wanly | last post by:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnaskdr/html/askgui06032003.asp Don't Lock Type Objects! Why Lock(typeof(ClassName)) or SyncLock GetType(ClassName) Is Bad Rico...
4
by: RichB | last post by:
Hello, The .NET application I have just installed at a client web site is throwing a strange error. At first the applications works without any problems, but after 10 mins or so Access denied...
2
by: Jeff Chan | last post by:
I have read the documentation from msdn to try to understanding the concept of "Type safe". Would someone give me an example of code segment illustrating what is *Non* type safe? Many Thanks,...
7
by: Sky | last post by:
I have been looking for a more powerful version of GetType(string) that will find the Type no matter what, and will work even if only supplied "{TypeName}", not the full "{TypeName},{AssemblyName}"...
3
by: Mike | last post by:
Hi I have problem as folow: Caught Exception: System.Configuration.ConfigurationErrorsException: An error occurred loading a configuration file: Request for the permission of type...
7
by: mirandacascade | last post by:
The questions are toward the bottom of this post. Situation is this: 1) Access 97 2) Multi-user appplication 3) SQL Server 2000 4) Sporadically (i.e. less than 1% of the time) encounter the...
0
by: DolphinDB | last post by:
The formulas of 101 quantitative trading alphas used by WorldQuant were presented in the paper 101 Formulaic Alphas. However, some formulas are complex, leading to challenges in calculation. Take...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
0
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
0
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.