El truco "Enumerar recursos de red" no funciona en Delphi XE7

[JoAnCa]

Hola a todos
Pues sigo con mis contratiempos en mi Soft de Monitoreo de Redes
Buscando como explorar la red para obtener todos los equipos conectados, encontre el truco "Enumerar recursos de red" de [cHackAll]

Pero con mi delphi XE7 (en Win10) no funciona, y si mal no recuerdo con delphi7 (en win7) si me funciono.

Presenta problemas con la funcion:

Código Delphi [-]
if WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, RESOURCEUSAGE_ALL, lpNetResource, hEnum) = 0 then

Me da el error de que: Los tipos tienen que ser identicos y me señala hEnum

A que se deberá esto?
Habrá alguna solución para que me funcione en cualquier entorno?

[Neftali [Germán.Estévez]]

Dependiendo de la versión que tengas de delphi basta con cambiar la definición de hEnum, por:

Código Delphi [-]
var
 hEnum:NativeUInt;
...

[JoAnCa]

Empezado por Neftali

Dependiendo de la versión que tengas de delphi basta con cambiar la definición de hEnum, por:

Código Delphi [-]var hEnum:NativeUInt; ...

Muchas gracias, resuelto con ese cambio. Uso Delphi XE7


Y continuando con el truco, me funciona bien en mi red local (aunque un poco lento), pero quisiera que tambien me funcionara en mis otras subredes.

Por ejemplo:
Mi red local: 192.168.0.1 (ok)
Subred 1: 192.168.1.1 ( ? )
Subred 2: 192.168.2.1
Subred 3: 192.168.3.1
...

Que cambio tendria que hacerle al código?
O este no me servirá y tendré que buscar otro método?

[orodriguezca]

Y desde un equipo en tu red local 192.168.0.1 puedes hacer ping a los equipos de las otras subredes?

[JoAnCa]

Empezado por orodriguezca

Y desde un equipo en tu red local 192.168.0.1 puedes hacer ping a los equipos de las otras subredes?

Pues si, me responden al ping y al tracer, incluso podemos conectarnos via VNC, en conclusiones hay comunicacion entre las subredes

Lo que necesito es enumerar los equipos de cada subred, para actualizar el inventario de hardware de la empresa completa, incluyendo sus sucursales