How to read system processor id in VB6.0

Question

4.00/5 (2 votes)

See more:

Dear all,

can any one help me out in extracting system processor id in vb6.0,,
i used following code to extract but only for laptop this code is able to extract processor id but for the desktop it is unable to extract....
The code is as follows......................

PLZ send a solution

-------------------------------------------------------------------------

Public Function MBSerialNumber() As String

'RETRIEVES SERIAL NUMBER OF MOTHERBOARD
'IF THERE IS MORE THAN ONE MOTHERBOARD, THE SERIAL
'NUMBERS WILL BE DELIMITED BY COMMAS

'YOU MUST HAVE WMI INSTALLED AND A REFERENCE TO
'Microsoft WMI Scripting Library IS REQUIRED

Dim objs As Object

Dim obj As Object
Dim WMI As Object



Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
'Set objs = WMI.InstancesOf(WindowState)
For Each obj In objs
procid = procid & obj.SerialNumber
If procid < objs.Count Then procid = procid & ","
Next
MBSerialNumber = procid
procid = LTrim$(procid)
procid = RTrim$(procid)
MsgBox "Proc_id :" + procid
End Function

--------------------------------------------------------------------

Posted 7-Jan-10 18:15pm

Md Imtiyaz786

Updated 9-Jan-10 9:50am

Abhishek Sur

v2

Add a Solution

5 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Dimitri Witkowski · Answer 1 · 2010-01-09T08:27:00

Oh... please sorry, I've missed that you need a solution for VB6, not VB.NET. Here's example in VB:

VB

Function GetCpuID() 
  Dim wmi, cpu, cpuid
  Set wmi = GetObject("winmgmts:")
  For Each cpu in wmi.InstancesOf("Win32_Processor")
   cpuid = cpuid + cpu.ProcessorID     
  Next 
  MsgBox cpuid
End Function

Sorry if this will not compile, I've tested it using Microsoft VBScript and it works for me

Dimitri Witkowski · Answer 2 · 2010-01-07T19:13:00

Here's the solution:

C#

private static string GetCpuId() {
    string cpuinfo = string.Empty;

    ManagementObjectSearcher searcher = new ManagementObjectSearcher("select processorid from win32_processor");

    foreach (ManagementObject mo in searcher.Get()) {
        if (cpuinfo == string.Empty)
            cpuinfo = mo.Properties["processorid"].Value.ToString();
        else
            break;
    }
    return cpuinfo;
}

Sorry, that was C# code.
In VB.NET it will be:

VB

Private Shared Function GetCpuId() As String
    Dim cpuinfo As String = String.Empty
    
    Dim searcher As New ManagementObjectSearcher("select processorid from win32_processor")
    
    For Each mo As ManagementObject In searcher.[Get]()
        If cpuinfo = String.Empty Then
            cpuinfo = mo.Properties("processorid").Value.ToString()
        Else
            Exit For
        End If
    Next
    Return cpuinfo
End Function

Md Imtiyaz786 · Answer 3 · 2010-01-07T23:27:00

Solution 2

dear the solution wat u given is for vb.net....
but i want solution to be in vb6.0.........

Posted 7-Jan-10 23:27pm

Md Imtiyaz786

Member 4482477 · Answer 4 · 2010-11-09T05:47:00

Solution 5

Mr Dmitry Vitkovsky

Congratulations !!

Works fine !!

My best regard

if you need travel to Colombia
on near future, here you are welcome.

Eduardo Migneco
Bogota,Colombia
emigneco@yahoo.com

Posted 9-Nov-10 5:47am

Member 4482477

Christian Graus · Answer 5 · 2010-01-07T23:30:00

Solution 3

VB6 is obsolete, and was always rubbish. I can't fathom why anyone would use it today, apart from self loathing. Why are you using it ? I expect the best way to do this in VB6, is to write a C++ dll to do it, that's how VB6 always did it's heavy lifting.

Posted 7-Jan-10 23:30pm

Christian Graus