Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Wmi
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Re: Wmi
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP1
Divers
Thread ID:
01252975
Message ID:
01253041
Vues:
17
Mauricio,

>* Los programas de Autorun que tengo en mi PC, es decir, los que se ejecutan al inicia el PC, ejemplo: Antivirus, Shell y todos los programas del menu inicio y del systrace.
oShell = CREATEOBJ('Shell.Application')
oFolder = oShell.NameSpace(0x7)
Adir(laStartupFiles, oFolder.Self.Path)
>
>* La maxima informacion de la BIOS que se pueda obtener.
loLocator			= CREATEOBJECT('WBEMScripting.SWBEMLocator')
loWMI				= loLocator.ConnectServer()

clear
loItems				= loWMI.ExecQuery("Select * from Win32_BIOS where PrimaryBIOS = TRUE")

* You should iterate thru the arrays
For Each loItem In loItems
	with loItem
*		? "BiosCharacteristics: " , .BiosCharacteristics && Array
*		? "BIOSVersion: " , .BIOSVersion && Array
		? "BuildNumber: " , .BuildNumber
		? "Caption: " , .Caption
		? "CodeSet: " , .CodeSet
		? "CurrentLanguage: " , .CurrentLanguage
		? "Description: " , .Description
		? "IdentificationCode: " , .IdentificationCode
		? "InstallableLanguages: " , .InstallableLanguages
		? "InstallDate: " , .InstallDate
		? "LanguageEdition: " , .LanguageEdition
*		? "ListOfLanguages: " , .ListOfLanguages	&& Array
		? "Manufacturer: " , .Manufacturer
		? "Name: " , .Name
		? "OtherTargetOS: " , .OtherTargetOS
		? "PrimaryBIOS: " , .PrimaryBIOS
		? "ReleaseDate: " , .ReleaseDate
		? "SerialNumber: " , .SerialNumber
		? "SMBIOSBIOSVersion: " , .SMBIOSBIOSVersion
		? "SMBIOSMajorVersion: " , .SMBIOSMajorVersion
		? "SMBIOSMinorVersion: " , .SMBIOSMinorVersion
		? "SMBIOSPresent: " , .SMBIOSPresent
		? "SoftwareElementID: " , .SoftwareElementID
		? "SoftwareElementState: " , .SoftwareElementState
		? "Status: " , .Status
		? "TargetOperatingSystem: " , .TargetOperatingSystem
		? "Version: " , .Version
	endwith && loItem
Next
>
>* Los dispositivos o Devices que tengo en el PC, es decir, todos los dispositivos de las unidades de disco, adaptadores de panatlla, teclados, adaptadores de red, puertos COM y LPT, volumenes de almacenamiento y demas.
>
>* Informacion sobre la memoria del Pc
Same as any wmi with Win32_PhysicalMemory
>
>* Las carpetas compartidas que tengo en el momento
* Assuming you still have loWMI
loShares				= loWMI.ExecQuery("Select * from Win32_ShareToDirectory")

for each loShare in loShares
	with loShare
		 ? .Share, .SharedElement
	endwith
next
>
>* Informacion de la Board y chasis, con datos de video, red, puertos, slots y demas.
>
* Select * from Win32_BaseBoard
* Chasis do not know
* Select * from Win32_VideoController
* the others I do not know what you want
>Y por ultimo
>
>* Informacion sobre la RED, en caso de estar conectado a una, que muestre adaptadores, protocolos, Winsoc k y otros datos.
* Select * from Win32_NetworkAdapter
[Update] Oh, recien me doy cuenta esta en español y en chatter. Porque en chatter? Es que no te interesa obtener una respuesta? :P Mucha gente que puede saber la respuesta no lee chatter.
"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