Obtener información del equipo con TMac

[jlalin]

Hola,
veo en varios mensajes que necesitais leer el MAC de las tarjetas para
proteger vuestras aplicaciones.
El OBJ adjunto contiene una clase TMac que escribí­ hace tiempo y
devuelve la siguiente información:
* cMac, MAC de la tarjeta por defecto,
* nCount, número de tarjetas,
* GetAll(), devuelve una lista con información de todas las MACs del
equipo, donde cada elemento es: { MAC, Nombre, Descripción }
Un ejemplo:
//---
LOCAL cStr := ""
WITH OBJECT TMac():New()
MsgAlert( :cMac )
MsgAlert( :nCount )
AEval( :GetAll(), {|aMacInfo| cStr += aMacInfo[1] + "--" + ;
aMacInfo[2] + "--" + ;
aMacInfo[3] + CRLF } )
MsgAlert( cStr )
END
//---
Para usarla, sólo hay que añadir el OBJ al proyecto y listo.
Saludos,
José Lalí­n
--

[PILO]

gracias jose lo provare
en que sistemas operativo corre
"José Lalín" <dezac@corevia.com> escribió en el mensaje
news:[email=448ddfe2@ozsrvnegro.ozlan.local...]448ddfe2@ozsrvnegro.ozlan.local...[/email]
>
> Hola,
>
> veo en varios mensajes que necesitais leer el MAC de las tarjetas para
> proteger vuestras aplicaciones.
>
> El OBJ adjunto contiene una clase TMac que escribí hace tiempo y
> devuelve la siguiente información:
>
> * cMac, MAC de la tarjeta por defecto,
> * nCount, número de tarjetas,
> * GetAll(), devuelve una lista con información de todas las MACs del
> equipo, donde cada elemento es: { MAC, Nombre, Descripción }
>
> Un ejemplo:
>
> //---
> LOCAL cStr := ""
>
> WITH OBJECT TMac():New()
> MsgAlert( :cMac )
> MsgAlert( :nCount )
> AEval( :GetAll(), {|aMacInfo| cStr += aMacInfo[1] + "--" + ;
> aMacInfo[2] + "--" + ;
> aMacInfo[3] + CRLF } )
> MsgAlert( cStr )
> END
> //---
>
> Para usarla, sólo hay que añadir el OBJ al proyecto y listo.
>
> Saludos,
> José Lalín
>
>

[Paco V]

Jose:
Al implementar tu objeto, me sale el siguiente error.
Tengo que hacer algo mas?
Paco V
Compilando
Enlazando AGESME.exe...
C:BorlandBCC55Binilink32 -Gn -Tpe -x -aa @make.tmp
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external 'GetAdaptersInfo' referenced from C:TRABAJOAGESMESOURCEMAC.OBJ

[Paco V]

Pilo, te ha funcionado?
A mi no me va y no tengo ni idea del motivo.
Si te funciona me dices.
Gracias
Paco V
"PILO" <srmpilo@hotmail.com> wrote:
>gracias jose lo provare
>en que sistemas operativo corre
>"José Lalín" <dezac@corevia.com> escribió en el mensaje
>news:[email=448ddfe2@ozsrvnegro.ozlan.local...]448ddfe2@ozsrvnegro.ozlan.local...[/email]
>>
>> Hola,
>>
>> veo en varios mensajes que necesitais leer el MAC de las tarjetas para
>> proteger vuestras aplicaciones.
>>
>> El OBJ adjunto contiene una clase TMac que escribí hace tiempo y
>> devuelve la siguiente información:
>>
>> * cMac, MAC de la tarjeta por defecto,
>> * nCount, número de tarjetas,
>> * GetAll(), devuelve una lista con información de todas las MACs del
>> equipo, donde cada elemento es: { MAC, Nombre, Descripción }
>>
>> Un ejemplo:
>>
>> //---
>> LOCAL cStr := ""
>>
>> WITH OBJECT TMac():New()
>> MsgAlert( :cMac )
>> MsgAlert( :nCount )
>> AEval( :GetAll(), {|aMacInfo| cStr += aMacInfo[1] + "--" + ;
>> aMacInfo[2] + "--" + ;
>> aMacInfo[3] + CRLF } )
>> MsgAlert( cStr )
>> END
>> //---
>>
>> Para usarla, sólo hay que añadir el OBJ al proyecto y listo.
>>
>> Saludos,
>> José Lalín
>>
>>
>
>

[jlalin]

Paco,
> Al implementar tu objeto, me sale el siguiente error.
> Tengo que hacer algo mas?
Debes añadir la librerí­a "iphlpapi.lib" que está en la carpeta
c:xailerbcc55lib (o donde tengas instalado el Borland C++).
Saludos,
José Lalí­n

[Paco V]

Jose, cargada la libreria compila y OK.
Ahora al pulsar el Botton que he puesto para probar me sale la imagen que
te adjunto.
Paco
=?ISO-8859-1?Q?Jos=E9_Lal=EDn?= <dezac@corevia.com> wrote:
>
>Paco,
>
>> Al implementar tu objeto, me sale el siguiente error.
>> Tengo que hacer algo mas?
>
>Debes añadir la librería "iphlpapi.lib" que está en la carpeta
>c:xailerbcc55lib (o donde tengas instalado el Borland C++).
>
>Saludos,
>José Lalín
--

Attached files

[Paco V]

Jose, aquí va la prueba.
Ten en cuenta que soy muy novato y es posible que sea algún problema mio.
Muchas Gracias.
Paco V
"Paco V" <ssi@ono.com> wrote:
>
>Pilo, te ha funcionado?
>
>A mi no me va y no tengo ni idea del motivo.
>
>Si te funciona me dices.
>
>Gracias
>
>Paco V
>
>"PILO" <srmpilo@hotmail.com> wrote:
>>gracias jose lo provare
>>en que sistemas operativo corre
>>"José Lalín" <dezac@corevia.com> escribió en el mensaje
>>news:[email=448ddfe2@ozsrvnegro.ozlan.local...]448ddfe2@ozsrvnegro.ozlan.local...[/email]
>>>
>>> Hola,
>>>
>>> veo en varios mensajes que necesitais leer el MAC de las tarjetas para
>>> proteger vuestras aplicaciones.
>>>
>>> El OBJ adjunto contiene una clase TMac que escribí hace tiempo y
>>> devuelve la siguiente información:
>>>
>>> * cMac, MAC de la tarjeta por defecto,
>>> * nCount, número de tarjetas,
>>> * GetAll(), devuelve una lista con información de todas las MACs del
>>> equipo, donde cada elemento es: { MAC, Nombre, Descripción }
>>>
>>> Un ejemplo:
>>>
>>> //---
>>> LOCAL cStr := ""
>>>
>>> WITH OBJECT TMac():New()
>>> MsgAlert( :cMac )
>>> MsgAlert( :nCount )
>>> AEval( :GetAll(), {|aMacInfo| cStr += aMacInfo[1] + "--" + ;
>>> aMacInfo[2] + "--" + ;
>>> aMacInfo[3] + CRLF } )
>>> MsgAlert( cStr )
>>> END
>>> //---
>>>
>>> Para usarla, sólo hay que añadir el OBJ al proyecto y listo.
>>>
>>> Saludos,
>>> José Lalín
>>>
>>>
>>
>>
>
--

Attached files PRUEBA.zip (5.5 KB)Â