Nro. serial de la tarjeta de red.

Nro. serial de la tarjeta de red.

Postby dbzap » Wed Apr 26, 2006 2:39 pm

Existe alguna forma de leer esta identificacion, pues el serialdisk() cambia luego de ser formateado el PC o si se usa como clave, puede ser duplicado el disco y se pierde el control.
Alguna idea respecto de tarjetas fisicas del PC ( tj. madre, tj de red, etc )
Gracias.
User avatar
dbzap
 
Posts: 189
Joined: Mon Nov 07, 2005 7:36 pm
Location: Chile

Postby Antonio Linares » Wed Apr 26, 2006 3:57 pm

Julio,

GETNETCARDID() --> nSerieTarjetaRed
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby dbzap » Wed Apr 26, 2006 4:03 pm

Gracias, lo revisaré !!
User avatar
dbzap
 
Posts: 189
Joined: Mon Nov 07, 2005 7:36 pm
Location: Chile

Re:

Postby Compuin » Wed Dec 13, 2017 2:43 pm

Antonio Linares wrote:Julio,

GETNETCARDID() --> nSerieTarjetaRed


Saludos,

Y para obtener serial de tarjeta madre cual es la funcion ?
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1213
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: Nro. serial de la tarjeta de red.

Postby karinha » Wed Dec 13, 2017 3:22 pm

Code: Select all  Expand view

#Include "FiveWin.ch"

function Main()

   local nTarjeta

   nTarjeta := Tarjeta_Madre()

   ? nTarjeta

return nil

Function Tarjeta_Madre()

   LOCAL oLoc := CreateObject( "wbemScripting.SwbemLocator" )
   LOCAL oSrv := oLoc:ConnectServer(,"root\cimv2")
   LOCAL aDrives := oSrv:ExecQuery( "SELECT * FROM Win32_ComputerSystemProduct" )
   LOCAL oDrive, cSerialTarj := ""
   LOCAL aData  := {}
   LOCAL nAt

   FOR Each oDrive in aDrives

      AADD( aData, oDrive:UUID )

   NEXT

   FOR nAt := 1 to Len( aData )

      cSerialTarj += Upper( AllTrim( cStr( aData[nAt] ) ) )

   NEXT nAt

Return( cSerialTarj )
 


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7154
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Nro. serial de la tarjeta de red.

Postby Compuin » Wed Dec 13, 2017 3:27 pm

karinha wrote:
Code: Select all  Expand view

#Include "FiveWin.ch"

function Main()

   local nTarjeta

   nTarjeta := Tarjeta_Madre()

   ? nTarjeta

return nil

Function Tarjeta_Madre()

   LOCAL oLoc := CreateObject( "wbemScripting.SwbemLocator" )
   LOCAL oSrv := oLoc:ConnectServer(,"root\cimv2")
   LOCAL aDrives := oSrv:ExecQuery( "SELECT * FROM Win32_ComputerSystemProduct" )
   LOCAL oDrive, cSerialTarj := ""
   LOCAL aData  := {}
   LOCAL nAt

   FOR Each oDrive in aDrives

      AADD( aData, oDrive:UUID )

   NEXT

   FOR nAt := 1 to Len( aData )

      cSerialTarj += Upper( AllTrim( cStr( aData[nAt] ) ) )

   NEXT nAt

Return( cSerialTarj )
 


Saludos.


Muchas gracias Karinha
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1213
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: Nro. serial de la tarjeta de red.

Postby AIDA » Fri Apr 09, 2021 12:16 am

hola empecé a usar Tarjeta_Madre() y todo bien pero después de unos días me da un numero de serie diferente de la mima Pc
sera cosa de mi compu ? :shock:


Saluditos :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
AIDA
 
Posts: 877
Joined: Fri Jan 12, 2007 8:35 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 5 guests