Display the Serial No. of Processor

[joelxez]

Dear Experts,

Is there a way on how to display the serial no. of my processor in load event...all tips are acceptable.

Joel,

 

[KenReay]

Hi

Cannot take credit for this, found it via Google, and have not tried it yet

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
Dim sAns As String


Set WMI = GetObject("WinMgmts:&quot
Set objs = WMI.InstancesOf("Win32_BaseBoard&quot
For Each obj In objs
sAns = sAns & obj.SerialNumber
If sAns < objs.Count Then sAns = sAns & &quot;,&quot;
Next
MBSerialNumber = sAns
End Function

see

http://www.freevbcode.com/ShowCode.Asp?ID=2664

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK