IP de red

[César E. Lozada]

Hola.
La función ShowIP() me da la IP de internet.
1) ¿ Cómo puedo averiguar el proveedor de internet y la puerta de enlace?. Hasta ahora lo hago enviando el resultado de ejecutar ipconfig a un archivo y leyéndolo

2) ¿ Hay alguna otra función que me dé la IP de red?

Gracias.

[Willi Quintana]

Hola,
La funcion GetIp debe llamarse en el on init de la ventana principal

ACTIVATE WINDOW oWnd ON INIT GetIp(oWnd)

Function GetIp(oWnd)
local nIp,oSocket,cIp, nLen

oSocket := TSocket():New( 2000 ) // New(2000)
cIp := oSocket:cIPAddr
oSocket:End()


Salu2

[JmGarcia]

¿ Y si tengo mas de una tarjeta de red ?

¿ Como puedo saber los datos de todas las interfaces ?

Gracias.

[César E. Lozada]

Willi:

La function GetIP() me vuelve a dar la IP de internet, como ShowIP().

Lo que quiero obtener es la ip del pc, en mi caso 192.168.0.1

Yo veo esta dirección en varios valores del registro, pero no sé cual de ellos de da siempre esta ip. Algunos son:

1)En las claves DefaultGateWay y en IPaddress de
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\{B0121E7B-3389-40D8-8E2A-4068E39B79C5}\Parameters\Tcpip\

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Services\{B0121E7B-3389-40D8-8E2A-4068E39B79C5}\Parameters\Tcpip

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\{B0121E7B-3389-40D8-8E2A-4068E39B79C5}\Parameters\Tcpip

2) En las claves IPaddress y NameServer de
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{B0121E7B-3389-40D8-8E2A-4068E39B79C5}\

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Services\Tcpip\Parameters\Interfaces\{B0121E7B-3389-40D8-8E2A-4068E39B79C5}

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{B0121E7B-3389-40D8-8E2A-4068E39B79C5}

[Willi Quintana]

Veamos
Yo utilizo esta funcion para saber cual es el ip de pc en la que esta ejecunatdo mi aplicacion

oSocket := TSocket():New( 2000 ) // New(2000)
cIp := oSocket:cIPAddr
oSocket:End()

ip es igual al ip que le asigne al configurar la tarjeta de red.

Salu2

[Silvio]

Can U post here an sample How found pc are link with your pc and save the ip address into listbox?

Sample : I work on a pc ( server) in a classroom and I see 20 pc
the 20 pc are on line and all link to Domain called LAB2

Can I see automatically all pc ?

[Willi Quintana]

Hola Silvio
puedes probar con los siguiente comando en modo consola

C:\netstat > lista.txt

C:\arp -a > lista.txt

y luego lo levantas a lis listbox y zas... espero te sirva

Salu2

[Silvio]

I know it but I try to create something into fwh
I saw delphi and vb can make it...easy