>Saludos a todos.
>Tengo un problema que espero me puedan a yudar a solucionar.
>
>Necesito hacer una aplicacion que recorratoda la red de mi empresa, que me liste los PC's y me los muestre como si fuera el Explorador de Windows.
>
>Luego de eso, necesito saber que software hay instalado en cada uno de esos Pc's
>
>Ojala me puedan ayudar.
>
>Saludos.
La primera parte es sencilla, puedes usar aNetResources(), la segunda no es muy difícil tampoco si eres administrador de dominio, ya que en ese caso puedes usar WMI facilmente, ahora, si no eres administrador de dominio, la cosa se complica, ya que debes setear permisos y pasar algunos parametros extras a ConnectServer, yo lo hice hace un tiempo, me costó mucho (además recién estaba empezando a usar WMI) hacerlo andar para un usuario común, y ya ni me acuerdo que fué lo que hice por que no me interesaba tanto, ya que cuando hago este tipo de programas es para que lo usen los administradores de la red.
local loProducts, loProduct, loWMI
loLocator = CREATEOBJECT('WBEMScripting.SWBEMLocator')
loWMI = loLocator.ConnectServer()
loProducts = loWMI.ExecQuery("SELECT * FROM Win32_Product")
For Each loProduct in loProducts
with loProduct
if Isnull(.Name)
loop
endif
? .Name, .Caption, .Description, .IdentifyingNumber, .InstallDate, .InstallDate2, .InstallLocation, .SKUNumber, .Vendor, .Version
endwith
endfor
Para que te sirva para otras máquinas debes usar:
ConnectServer(lcComputerName, 'root\cimv2', lcUserName, lcPassword, lcLocale, lcAuthority, lnSecurityFlags)
"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