NET VIEW en VFP ?

Zorrillo Visual wrote:

Hola,

En VFP, se puede ver una lista de las PCs de la red local como con el
comando NET VIEW ???

Fijate en la ayuda la función anetresources. si eso no te sirve, hay
otras alternativas

Muchas gracias,

Me podrias comentar sobre las otras opciones???

Necesito identificar las PCs encendidas en la red local.
No requiero conectarme a ningun recurso compartido.
(Varias PCs NO tienen recursos compartidos)
Pero todas pertenecen al mismo dominio.

Gracias de nuevo.




"Hugo M. Ranea" escribió en el mensaje
news:

Zorrillo Visual wrote:

>Hola,
>
>En VFP, se puede ver una lista de las PCs de la red local como con el
>comando NET VIEW ???
>
>
>
>
>
Fijate en la ayuda la función anetresources. si eso no te sirve, hay
otras alternativas

Ver si las computadoras están o no encendidas (o incluso existir, ya que
pueden estar en la lista pero no existir más fisicamente) puede ser un
proceso largo, ya que debes tratar de "conectarte" a la computadora
remota y esperar un "Timeout". Eso lo puedes hacer con PING o usando WMI.

La contra es que para usar WMI para conectarte a la otra computadora
necesitas tener permisos (administrador del dominio es el más fácil) por
lo que el PING puede ser una solución mejor.



set escape on
loWMIService = GetObject("winmgmts:\\.oot\directory\LDAP")
loComputers = loWMIService.ExecQuery("SELECT ds_name FROM
ds_computer", , 0x0)
for each loComputer in loComputers
lcName = loComputer.ds_name
try
wait window 'Connecting to ' + lcName nowait
GetObject("WinMgmts://" + lcName + "oot\cimv2")
llConnected = .T.
catch
wait window 'Connection could not be established to computer: '
+ lcName nowait
llConnected = .F.
endtry
? lcName, Iif(llConnected, 'Connected', 'NOT Connected')
endfor

Gracias

NO me quiero CONECTAR a ninguna PC
Tan solo quiero VER como lo hace el comando NET VIEW

Tengo que hacer PING a todos los numeros IP de mi LAN ???
desde 192.168.0.1 hasta 192.168.0.254 ?????

No hay algo mejor ????


"Hugo M. Ranea" escribió en el mensaje
news:

Ver si las computadoras están o no encendidas (o incluso existir, ya que
pueden estar en la lista pero no existir más fisicamente) puede ser un
proceso largo, ya que debes tratar de "conectarte" a la computadora
remota y esperar un "Timeout". Eso lo puedes hacer con PING o usando WMI.

La contra es que para usar WMI para conectarte a la otra computadora
necesitas tener permisos (administrador del dominio es el más fácil) por
lo que el PING puede ser una solución mejor.



set escape on
loWMIService = GetObject("winmgmts:\\.oot\directory\LDAP")
loComputers = loWMIService.ExecQuery("SELECT ds_name FROM
ds_computer", , 0x0)
for each loComputer in loComputers
lcName = loComputer.ds_name
try
wait window 'Connecting to ' + lcName nowait
GetObject("WinMgmts://" + lcName + "oot\cimv2")
llConnected = .T.
catch
wait window 'Connection could not be established to computer: '
+ lcName nowait
llConnected = .F.
endtry
? lcName, Iif(llConnected, 'Connected', 'NOT Connected')
endfor

ANetResources (y parte del codigo WMI/LDAP que te mandé) te muestra
exactamente la misma información que NET VIEW, es decir las máquinas que
pertenecen al dominio. Para ver si están o no encendidas, conectadas o
etc, NO hay nada mágico, hasta donde yo se, otra de tratar de establecer
algún tipo de comunicación con la misma, ya sea mediante PING o mediante
WMI cómo el ejemplo que te dí. Y no necesitas recorrer todas las IP,
simplemente debes obtener la IP de las máquinas que pertenecen al
dominio, pero para hacer esto necesitas usar WMI y "conectarte" a las
mismas, algo que tu no quieres hacer, lo último que te quiero hacer
notar es que "conectarse" a través de WMI no es lo mismo que crear o
usar recursos compartidos, son dos cosas distintas