El programa VB necesita respuestas de expertos
El uso de WMI puede acceder fácilmente a información de hardware/software
Inserte un cuadro de lista en el formulario y luego codifique
Private Sub Form_Load()
En caso de error, reanudar a continuación
Atenuar objWMIService, colItems, objItem
Establecer objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Establecer colItems = objWMIService.ExecQuery("Seleccionar * de Win32_Processor", , 48)
List1.AddItem "Detalles de la CPU"
List1.AddItem "---- --- ---------"
Para cada objItem en colItems
List1.AddItem "AddressWidth: " amp; objItem.AddressWidth
List1. AddItem "Arquitectura: " & objItem.Architecture
List1.AddItem "Disponibilidad: " & objItem.Availability
List1.AddItem "Caption: " & objItem Caption
<. p> List1.AddItem "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCodeList1.AddItem "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
List1.AddItem " CpuStatus: " & objItem.CpuStatus
List1.AddItem "CreationClassName: " & objItem.CreationClassName
List1.AddItem "CurrentClockSpeed: " & objItem.CurrentClockSpeed
List1.AddItem "CurrentVoltage: " amp ; objItem.CurrentVoltage
Lista1.AddItem "DataWidth: " amp; objItem.DataWidth
Lista1.AddItem "Descripción: " objItem.Description
Lista1 .AddItem "DeviceID: " amp; objItem.DeviceID
List1.AddItem "ErrorCleared: " objItem.ErrorCleared
Li
st1.AddItem "ErrorDescription: " & objItem.ErrorDescription
List1.AddItem "ExtClock: " & objItem.ExtClock
List1.AddItem "Family: " & objItem.Family
List1.AddItem "InstallDate: " & objItem.InstallDate
List1.AddItem "L2CacheSize: " & objItem.L2CacheSize
List1.AddItem "L2CacheSpeed : " & objItem. L2CacheSpeed
List1.AddItem "LastErrorCode: " & objItem.LastErrorCode
List1.AddItem "Level: " & objItem.Level
List1.AddItem "LoadPercentage: " & objItem.LoadPercentage
List1.AddItem "Fabricante: " & objItem.Manufacturer
List1.AddItem "MaxClockSpeed: " & objItem .MaxClockSpeed
Lista1. AddItem "Nombre: " & objItem.Name
List1.AddItem "OtherFamilyDescription: " & objItem.OtherFamilyDescription
List1.AddItem "PNPDeviceID: " & objItem.PNPDeviceID
List1.AddItem "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
List1.AddItem "PowerManagementSupported: " & objItem.PowerManagementSupported
List1.AddItem "ProcessorId: " objItem.ProcessorId
List1.AddItem "ProcessorType: " amp; objItem.ProcessorType
List1.AddItem "Revisión: " objItem.Revision
List1.AddItem "Rol; : " & objItem.Role
List1.AddItem "SocketDesignation: " & objItem.Soc
ketDesignation
List1.AddItem "Status: " & objItem.Status
List1.AddItem "StatusInfo: " & objItem.StatusInfo
List1.AddItem " Paso a paso: " amp; objItem.Stepping
List1.AddItem "SystemCreationClassName: " amp; objItem.SystemCreationClassName
List1.AddItem "SystemName: " amp; objItem.SystemName
List1.AddItem "UniqueId: " amp; objItem.UniqueId
List1.AddItem "UpgradeMethod: " amp; objItem.UpgradeMethod
List1.AddItem "Versión: " objItem. Versión
List1.AddItem "VoltageCaps: " amp; objItem.VoltageCaps
List1.AddItem "---------------"
Siguiente
List1.AddItem "Detalles de la memoria"
List1.AddItem "----------------"
Establecer colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory", , 48)
Para cada objItem en colItems
List1.AddItem "BankLabel: " objItem; .BankLabel
List1.AddItem "Capacidad: " amp; objItem.Capacity
List1.AddItem "Caption: " objItem.Caption
List1.AddItem; "CreationClassName: " & objItem.CreationClassName
List1.AddItem "DataWidth: " & objItem.DataWidth
List1.AddItem "Descripción: " & objItem.Description
List1.AddItem "DeviceLocator: " & objItem.DeviceLocator
List1.AddItem "FormFactor: " & objItem.FormFactor
List1.AddItem "HotSwappable: "amp;
Item.HotSwappable
List1.AddItem "InstallDate: " & objItem.InstallDate
List1.AddItem "InterleaveDataDepth: " & objItem.InterleaveDataDepth
List1. InterleavePosition: " & objItem.InterleavePosition
List1.AddItem "Fabricante: " & objItem.Manufacturer
List1.AddItem "MemoryType: " & objItem.MemoryType
p>List1.AddItem "Modelo: " & objItem.Model
List1.AddItem "Nombre: " & objItem.Name
List1.AddItem "OtherIdentifyingInfo: " amp;
List1.AddItem "PartNumber: " amp; objItem.PartNumber
List1.AddItem "PositionInRow: " objItem.PositionInRow
List1.AddItem "PoweredOn; : " & objItem.PoweredOn
Lista1.AddItem "Removable: " & objItem.Removable
List1.AddItem "Reemplazable: " & objItem.Replaceable
Lista1 .AddItem "SerialNumber: " & objItem.SerialNumber
List1.AddItem "SKU: " & objItem.SKU
List1.AddItem "Velocidad : " amp objItem.Speed
List1.AddItem "Estado: " amp; objItem.Status
List1.AddItem "Etiqueta: " amp; objItem.Tag
List1.AddItem "TotalWidth: " & objItem.TotalWidth
List1.AddItem "TypeDetail: " & objItem.TypeDetail
List1.AddItem "Versión: " & objItem .Version
List1.AddItem " ---------------"
Siguiente
Lista1.
AddItem "Información de la tarjeta gráfica"
List1.AddItem "----------------"
Set colItems = objWMIService.ExecQuery("Select * de Win32_PhysicalMemory", , 48)
Para cada objItem en colItems
List1.AddItem "VideoProcessor: " & objItem.VideoProcessor
List1.AddItem "- ---------------"
Siguiente
Para obtener más información (solo abre Google Translate si no entiendes)
/biblioteca/aa394587