Numero de serie de la placa base (BOARD)

[JORGE HERNANDEZ]

Cordial saludo. A todos.

¿Harbour tiene una instrucción para saber el numero de serie de la placa base (board).?

Gracias de antemano.

Atentamente,

JORGE EDUARDO.

[Antonio Linares]

local oLoc := CreateObject ( "wbemScripting.SwbemLocator" )
local objWMI := oLoc:ConnectServer()
local oTipo_Board := objWMI:ExecQuery ( "Select Product, SerialNumber FROM Win32_BaseBoard" )

FOR EACH oDatos IN oTipo_Board
? "Tipo : " + ALLTRIM ( oDatos:Product ) + ;
", Serie: " + ALLTRIM ( oDatos:SerialNumber ) + CRLF

NEXT

https://fivetechsupport.com/forums/viewtopic.php?p=136822&sid=812f49ff1feaf67891c0611fbf143264#p136822

[kamleh patel]

Hello,

Only work in Admin User this function for getting a detailed motherboard serial no.

How to work as a normal user. 

Regards

Kamlesh

--
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: https://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/d8c38b86-78ba-4838-953f-bbf99a63ab45n%40googlegroups.com.

[Bernard Mouille]

Hello  Kamlesh,

A code below my signature.

Regards,

Bernard.

// Begin code.

/*
   BH_GetBaseBoardSerialNumber.prg
   Get the base board serial number.
   Using HB32, Windows10

   Compile with -lhbwin

   This code is a basic sample for tests.

   https://learn.microsoft.com/en-us/windows/win32/cimwin32prov/win32-baseboard

   web : http://bernard.mouille.free.fr/mso-hb32/BH_GetBaseBoardSerialNumber.txt
   Last change : 2023-07-09
*/

procedure Main

   setmode( 25, 80 )
   setcolor( "GR+/B" )
   @ 0, 0, maxrow(), maxcol() box space( 9 )
   ? "Get the base board serial number."
   ?
   ? bh_GetBaseBoardSerialNumber()
   ?
   wait
   return

function bh_GetBaseBoardSerialNumber()

   local oLocator  // WbemScripting.SWbemLocator object.
   local oWMI      // WMI object.
   local oItem     // Item object.
   local aSys      // Base board array ( 1 element ).
   local cReturn   // Return serial number.

   oLocator := Win_OleCreateObject( "WbemScripting.SWbemLocator" )
   oWMI     := oLocator:ConnectServer( ".", "root\cimv2" )
   aSys     := oWMI:ExecQuery( 'Select * from Win32_BaseBoard' )

   cReturn := ""
   for each oItem in aSys
      cReturn  += oItem:SerialNumber
   endfor

   oItem    := nil
   aSys     := nil
   oWMI     := nil
   oLocator := nil

   return cReturn

// End code.

[kamleh patel]

Sir,

Work in normal user Like User is not Administrator.

Regards

Kamlesh

To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/5be8f9c7-05f7-448b-8877-e57c9a1dbaa0n%40googlegroups.com.

[kamleh patel]

Sir,

Code is compiled successfully.

Exe run but not any value display.

Regards

Kamlesh

On Tue, Jul 11, 2023 at 6:38 PM Bernard Mouille <bernardm...@gmail.com> wrote:

To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/5be8f9c7-05f7-448b-8877-e57c9a1dbaa0n%40googlegroups.com.

[José M. C. Quintas]

Here ok.

Return is "To be filled by O.E.M."

On Microsoft site, about my Windows 10 installation, I see this text.

Now I know this text is my board serial number.

José M. C. Quintas

To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/CAPFyMQPi%3DanRO7UM_be7J-PfSm3omSRB6SeABr7k3ZU68tGw2Q%40mail.gmail.com.

[Jayadev U]

Hi Bernard,

 

Excellent function I must say.  Works correctly.

 

If the program is on a shared folder on a Server and is “run” on  node, it will report the motherboard serial number of the node correct ?.

Is there a function to get the motherboard serial number of the Server where the program resides ?

 

Warm regards,

 

Jayadev

To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/5be8f9c7-05f7-448b-8877-e57c9a1dbaa0n%40googlegroups.com.

[Bernard Mouille]

Hello Yayadev,

I have not server but you can replace :

   oWMI     := oLocator:ConnectServer( ".", "root\cimv2" )

by

   oWMI     := oLocator:ConnectServer( "Server_Name", "root\cimv2" )

Maybe the security level will not good ?

Regards,

Bernard.

[Auge & Ohr]

hi,

WMI must be "enable"
you need Admin Right for WMI

WMI report "Local" Settings and must run "on" Local PC
you also can use it to get "remote" PC Information

---

SerialNumber FROM Win32_BaseBoard are not a good Way to "identfy" a PC
SerialNumber FROM Win32_DiskDrive, which is NOT "Volumeseriennummer", can be change

i recommend tu use Win32_NetworkAdapterConfiguration
MACAddress   FROM Win32_NetworkAdapterConfiguration

the Network Chip is "on-Board" and MACAddress is Unique

Jimmy

[Bernard Mouille]

Hello,

I try with CMD but the user must to be an admin account.

Regards,

Bernard.

// Begin code.

/*
   BH_GetBaseBoardSerialNumber.prg
   Get the base board serial number.
   Using HB32, Windows10

   Compile with -lhbwin

   *** The user must to be an admin account. ***

   This code is a basic sample for tests.

   https://learn.microsoft.com/en-us/windows/win32/cimwin32prov/win32-baseboard

   web : http://bernard.mouille.free.fr/mso-hb32/BH_GetBaseBoardSerialNumber.txt

   Last change : 2023-07-12

*/

procedure Main

   setmode( 25, 80 )
   setcolor( "GR+/B" )
   @ 0, 0, maxrow(), maxcol() box space( 9 )
   ? "Get the base board serial number."
   ?

   ? "WMI :", bh_GetBaseBoardSerialNumber()
   ? "CMD :", bh_GetBaseBoardSerialNumberCMD()

   ?
   wait
   return

function bh_GetBaseBoardSerialNumber()
   local oLocator  // WbemScripting.SWbemLocator object.
   local oWMI      // WMI object.
   local oItem     // Item object.
   local aSys      // Base board array ( 1 element ).
   local cReturn   // Return serial number.
   oLocator := Win_OleCreateObject( "WbemScripting.SWbemLocator" )
   oWMI     := oLocator:ConnectServer( ".", "root\cimv2" )
   aSys     := oWMI:ExecQuery( 'Select * from Win32_BaseBoard' )
   cReturn := ""
   for each oItem in aSys
      cReturn  += oItem:SerialNumber
   endfor
   oItem    := nil
   aSys     := nil
   oWMI     := nil
   oLocator := nil
   return cReturn

function bh_GetBaseBoardSerialNumberCMD()
   local cReturn := ""
   with object win_oleCreateObject( "WScript.Shell" ):Exec( 'cmd /K wmic baseboard get serialnumber &exit' )
      :StdOut:ReadLine()
      cReturn += :StdOut:ReadLine()
   end with
   return cReturn

// End code.