oShell = CREATEOBJ('Shell.Application') oFolder = oShell.NameSpace(0x7) Adir(laStartupFiles, oFolder.Self.Path)>
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>
Same as any wmi with Win32_PhysicalMemory>
* Assuming you still have loWMI loShares = loWMI.ExecQuery("Select * from Win32_ShareToDirectory") for each loShare in loShares with loShare ? .Share, .SharedElement endwith next>
* Select * from Win32_BaseBoard * Chasis do not know * Select * from Win32_VideoController * the others I do not know what you want>Y por ultimo
* 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.