Identificar los equipos de la red

[marcial]

Hola a todos:
Trabajo con D5 y, aunque llevo mucho tiempo buscando, no he encontrado nada sencillo para identificar los equipos que estan conectados a la red.
Me gustaria obtener algo como esto, en un Memo o ListView, etc.:

Servidor 192.168.1.2
Puesto1 192.168.1.3
Puesto2 192.168.1.4

He buscado (trucomania,About,DelphiPages, etc) y hay algunas cosas que te dan mucha información (recursos y tipos, etc) pero no van bien en Delphi5. Otras (ya tengo una), para obtener sólo el nombre de MI equipo y MI IP, pero necesito las de toda la red.

Muchas gracias por vuestro tiempo.

[TOPX]

Hola,

Pues, acabo de encontrar:

• Network infrastructure discovery - StackOverflow

Para probarla, como en D5 no hay StrUtils, sólo debí cambiar los llamados a StartsStr() y PosEx() por una implementación propia y listo.

Espero que le sirva.

-

[marcial]

Gracias POX, voy a probarlas y te cuento.

[marcial]

Hola TopX
He systituido los Startstr y los PosEx pero no entiendo bien cómo lo hace. He puesto un showmessage, ejecuta las rutinas y me da los nombres de los puestos, pero cuado pongo un memo en el form y donde tengo el shoemessage (en el procedure ScanLevel) me dice que no existe ningún memo (cuando yo lo estoy viendo en el formulario y además está definido junto con un button y un edit).
Seguiré buscando.
Muchas gracias de todas formas.

[TOPX]

marcial,

El código referido está orientado a ser utilizado en una aplicación de consola; de esa manera sólo basta el cambio de las funciones mencionadas.

Ya si lo quiere utilizar en una aplicación visual, el trabajo es diferente. Por este medio tal vez no pueda explicar bien que los procedure deben ser miembros de una clase a la que se pueda acceder, pero en el siguiente hilo hay un ejemplo que tal vez le guíe:

• por qué tengo que poner el nombre del form en el procedure - ClubDelphi

-

[marcial]

Gracias TOPX
Intentaré adaptarlo y si no lo consigo , porque tampoco tengo las uses que necesita, consultaré al cliente para ver si se puede cambiar el programa para omitir este paso.
Gracias otra vez por tu atención.