topic-2839

Posts: 189

Joined: Mon Nov 07, 2005 07:36 PM

Nro. serial de la tarjeta de red.
Posted: Wed Apr 26, 2006 02: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.

Julio Gonzalez V.

RANDOM S.A.

SISTEMICA S.A.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Nro. serial de la tarjeta de red.
Posted: Wed Apr 26, 2006 03:57 PM

Julio,

GETNETCARDID() --> nSerieTarjetaRed

regards, saludos

Antonio Linares
www.fivetechsoft.com

dbzap

Posts: 189

Joined: Mon Nov 07, 2005 07:36 PM

Nro. serial de la tarjeta de red.
Posted: Wed Apr 26, 2006 04:03 PM

Gracias, lo revisaré !!

Julio Gonzalez V.

RANDOM S.A.

SISTEMICA S.A.

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re:
Posted: Wed Dec 13, 2017 02:43 PM

Antonio Linares wrote:Julio,

GETNETCARDID() --> nSerieTarjetaRed

Saludos,

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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Nro. serial de la tarjeta de red.
Posted: Wed Dec 13, 2017 03:22 PM

Code (fw): Select all Collapse

#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

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re: Nro. serial de la tarjeta de red.
Posted: Wed Dec 13, 2017 03:27 PM

karinha wrote:

Code (fw): Select all Collapse

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

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Nro. serial de la tarjeta de red.
Posted: 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ǝ

FiveTech Support Forums

Continue the discussion