>
Re: Recorrer una Red Thread #
1047833 Message #
1047843>
>Hola Hugo.
>Gracias.
>El aNetResources no me sirvio, quizas sea por la version de VFP.
>Por los Programas del PC, GRACIAS, excelente rutina, ya tenia una pero era con pura API, voy a tomar la tuya mejor.
>
>Nos vemos.
Ah! Perdón, no me acuerdo en que versión de foxpro apareció aNetResources(). Puedes probar usando el proveedor de LDAP para WMI:
(Aunque si estás usando Peer-to-Peer no se si sirve, nunca lo probé, pero me parece que no sirve), este sería el ejemplo:
local loWMI, loComputers, loComputer
loLocator = CREATEOBJECT('WBEMScripting.SWBEMLocator')
loWMI = loLocator.ConnectServer('.', 'root\directory\LDAP')
loComputers = loWMI.ExecQuery("SELECT ds_name, ds_OperatingSystem FROM ds_computer")
for each loComputer in loComputers
? loComputer.ds_name, loComputer.ds_OperatingSystem
endfor
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges