Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Recorrer una Red
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Versions des environnements
Visual FoxPro:
VFP 6 SP5
OS:
Windows Server 2003
Network:
Windows 2003 Server
Database:
MS SQL Server
Divers
Thread ID:
01047833
Message ID:
01047843
Vues:
14
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform