Motherboard Serial Number

[Jeff Barnes]

Hi Everybody,

Anyone know how to read the serial number of a motherboard?

Thanks,
Jeff

[Jeff Barnes]

I found some VB code that should get the Motherboard Serial number.

Can anyone convert this to FWH ?


Jeff

Code: Select all

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:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
  sAns = sAns & obj.SerialNumber
 If sAns < objs.Count Then sAns = sAns & ","
Next
MBSerialNumber = sAns
End Function

[Enrico Maria Giordano]

Code: Select all

FUNCTION MAIN()

    LOCAL oLoc := CREATEOBJECT( "wbemScripting.SwbemLocator" )
    LOCAL oSrv := oLoc:ConnectServer()
    LOCAL oJbs := oSrv:ExecQuery( "SELECT * FROM Win32_BaseBoard" )

    LOCAL oJob

    FOR EACH oJob IN oJbs
        ? oJob:SerialNumber
    NEXT

    RETURN NIL

[Jeff Barnes]

Once again many thanks.


Jeff

[RAMESHBABU]

Hi

"wbemScripting.SwbemLocator" object is available where ?

Is is available in Win98 also ?

Thanks

- Ramesh Babu P

[Enrico Maria Giordano]

It should be available. From MSDN:

Client Requires Windows Vista, Windows XP, Windows 2000 Professional, Windows NT Workstation 4.0 SP4 and later, Windows Me, Windows 98, or Windows 95 OSR2 and later.
Server Requires Windows Server "Longhorn", Windows Server 2003, Windows 2000 Server, or Windows NT Server 4.0 SP4 and later.
Type Library Use Wbemdisp.tlb.

DLL Requires Wbemdisp.dll.

EMG