Nro. serial de la tarjeta de red.

[dbzap]

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.

[Antonio Linares]

Julio,

GETNETCARDID() --> nSerieTarjetaRed

[dbzap]

Gracias, lo revisaré !!

[Compuin]

Julio,

GETNETCARDID() --> nSerieTarjetaRed

Saludos,

Y para obtener serial de tarjeta madre cual es la funcion ?

[karinha]

Code: Select all  Expand view  RUN

#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.

[Compuin]

Code: Select all  Expand view  RUN

#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

[AIDA]

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 ?


Saluditos