Añadida a la sección Descargas la aplicación AjpdSoft Obtener datos procesador WMI: obtiene datos técnicos del procesador (CPU) del equipo, como: número de procesadores lógicos, número de cores (núcleos), modelo del procesador, tipo de procesador, tamaño de datos, tamaño de caché, velocidad de caché L2, socket, velocidad (MHz), voltaje, familia, fabricante, revisión, etc. Liberamos el código fuente – source code en Borland Delphi 6 100% Open Source.
- Definición de WMI.
- Características más importantes de AjpdSoft Obtener datos procesador WMI.
- AjpdSoft Obtener datos procesador WMI en funcionamiento.
- Instalación y configuración de AjpdSoft Obtener datos procesador WMI.
- Datos técnicos de AjpdSoft Obtener datos procesador WMI.
- A quién va dirigida AjpdSoft Obtener datos procesador WMI.
- Anexo.
Definición de WMI
Windows Management Instrumentation (wmi ó Instrumental de administración de Windows) es la implementación de WBEM (Web-Based Enterprise Management) de Microsoft, una iniciativa que pretende establecer normas estándar para tener acceso y compartir la información de administración a través de la red de una empresa.
wmi proporciona compatibilidad integrada para el Modelo de Información Común (CIM, Common Information Model), que describe los objetos existentes en un entorno de administración.
wmi incluye un repositorio de objetos compatible con CIM (Common Information Model ó Modelo de Información Común), que es la base de datos de definiciones de objetos, y el Administrador de objetos CIM, que controla la recopilación y manipulación de objetos en el repositorio y reúne información de los proveedores de wmi. Los proveedores de wmi actúan como intermediarios entre los componentes del sistema operativo, las aplicaciones y otros sistemas.
Los proveedores proporcionan información acerca de sus componentes, y podrían proporcionar métodos para manipular los componentes, las propiedades que se pueden establecer, o los sucesos que le pueden alertar de las modificaciones efectuadas en los componentes.
Características más importantes de AjpdSoft Obtener datos procesador WMI
- Aplicación de muy sencillo manejo, muy fácil e intuitiva, todas las opciones están en una misma ventana.
- La aplicación ha sido desarrollada en el lenguaje de programación Borland Delphi 6.
- No necesita instalación, es suficiente con ejecutar el fichero infoProcesador.exe.
- Obtiene datos técnicos del procesador CPU del equipo.
- Permite obtener datos del procesador como: número de procesadores lógicos, número de cores (núcleos), modelo del procesador, tipo de procesador, tamaño de datos, tamaño de caché, velocidad de caché L2, socket, velocidad (MHz), voltaje, familia, fabricante, revisión.
AjpdSoft Obtener datos procesador WMI en funcionamiento
AjpdSoft Obtener datos procesador WMI permite obtener datos de la CPU del equipo, para obtenerlos es suficiente con pulsar en el botón «Obtener datos procesador WMI»:
Si el servicio WMI está iniciado y correctamente configurado mostrará los siguientes datos, lógicamente variarán en función del procesador de cada equipo en el que ejecutemos la aplicación:
Nº procesadores lógicos: 4
Nº de cores (núcleos): 4
Modelo procesador: 9 – x64
Estado CPU: Habilitado
Tipo de procesador: Central
Tamaño de datos (DataWith) (bit): 64
Nombre: Intel(R) Core(TM)2 Quad CPU Q9400 @ 2.66GHz
Tamaño caché L2 (KB): 3072
Velocidad caché L2 (MHz):
Tamaño caché L3 (KB): 0
Velocidad caché L3 (MHz): 0
Socket: Socket 775
Velocidad (MHz): 2667
Voltaje (V): 10
Descripción: Intel64 Family 6 Model 23 Stepping 10
Descripción familia (otra):
Fabricante: GenuineIntel
Revisión: 5898
Instalación y configuración de AjpdSoft Obtener datos procesador WMI
AjpdSoft Obtener datos procesador WMI no necesita instalación, se puede ejecutar directamente el fichero infoProcesador.exe.
Datos técnicos de AjpdSoft Obtener datos procesador WMI
Esta aplicación ha sido desarrollada en el lenguaje de programación Borland Delphi 6. La aplicación utiliza el servicio WMI de Windows, por lo que ha de estar activo y correctamente configurado.
Si eres desarrollador de software y te has registrado en nuestra web (si aún no te has registrado puedes hacerlo desde aquí gratuitamente) puedes descargar el código fuente 100% Open Source (completo y totalmente gratuito) en Borland (ahora Codegear) Delphi 6:
AjpdSoft Obtener datos procesador WMI ha sido testada y funciona correctamente en equipos con sistemas operativos: Windows XP, Windows 2000 Server, Windows Server 2003, Windows Vista, Windows 7 (Seven), Windows, Windows 10, Windows Server 2008, Windows Server 2012, Windows Server 2016 y Windows Server 2019.
A quién va dirigida AjpdSoft Obtener datos procesador WMI
La aplicación AjpdSoft Obtener datos procesador WMI va dirigida a administradores de sistemas y usuarios que quieran obtener y saber datos de la CPU (procesador) de un equipo.
También puede ser útil para estudiantes que tengan que realizar algún proyecto de ejemplo de desarrollo de aplicación que acceda y utilice el servicio WMI de Microsoft Windows.
Anexo
Unidad «UnidadMenuPrincipal.pas»:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 |
unit UnidadMenuprincipal; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ActiveX, shellapi, WbemScripting_TLB; type TformMenuPrincipal = class(TForm) Button1: TButton; txtDatosProcesador: TMemo; LWEB: TLabel; procedure Button1Click(Sender: TObject); procedure LWEBClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var formMenuPrincipal: TformMenuPrincipal; implementation {$R *.dfm} function obtenerDatosWMI (propiedad, clave, rama : string) : string; var Locator: ISWbemLocator; Services: ISWbemServices; SObject: ISWbemObject; ObjSet: ISWbemObjectSet; SProp: ISWbemProperty; Enum: IEnumVariant; Value: Cardinal; TempObj: OleVariant; SN, consultaSQL : string; begin try Locator := CoSWbemLocator.Create; //conectamos con el servicio WMI Services := Locator.ConnectServer('', rama, '', '', '','', 0, nil); consultaSQL := 'SELECT ' + propiedad + ' FROM ' + clave; try ObjSet := Services.ExecQuery(consultaSQL, 'WQL', wbemFlagReturnImmediately and wbemFlagForwardOnly , nil); Enum := (ObjSet._NewEnum) as IEnumVariant; while (Enum.Next(1, TempObj, Value) = S_OK) do begin SObject := IUnknown(tempObj) as ISWBemObject; SProp := SObject.Properties_.Item(propiedad, 0); if VarIsNull(SProp.Get_Value) then result := '' else begin SN := SProp.Get_Value; result := SN; end; end; except on exception do result := ''; end; except result := ''; end; end; procedure TformMenuPrincipal.Button1Click(Sender: TObject); begin txtDatosProcesador.Clear; txtDatosProcesador.Lines.Add ('Nº procesadores lógicos: ' + obtenerDatosWMI('NumberOfLogicalProcessors', 'Win32_Processor', 'root\CIMV2')); txtDatosProcesador.Lines.Add ('Nº de cores (núcleos): ' + obtenerDatosWMI('NumberOfCores', 'Win32_Processor', 'root\CIMV2')); case strtoint(obtenerDatosWMI('Architecture', 'Win32_Processor', 'root\CIMV2')) of 0 : txtDatosProcesador.Lines.Add ('Modelo procesador: 0 - x86'); 1 : txtDatosProcesador.Lines.Add ('Modelo procesador: 1 - MIPS'); 2 : txtDatosProcesador.Lines.Add ('Modelo procesador: 2 - Alpha'); 3 : txtDatosProcesador.Lines.Add ('Modelo procesador: 3 - PowerPC'); 6 : txtDatosProcesador.Lines.Add ('Modelo procesador: 6 - Intel Itanium Processor Family (IPF)'); 9 : txtDatosProcesador.Lines.Add ('Modelo procesador: 9 - x64'); end; case strtoint(obtenerDatosWMI('CpuStatus', 'Win32_Processor', 'root\CIMV2')) of 0 : txtDatosProcesador.Lines.Add ('Estado CPU: Desconocido'); 1 : txtDatosProcesador.Lines.Add ('Estado CPU: Habilitado'); 2 : txtDatosProcesador.Lines.Add ('Estado CPU: Deshabilitado por el usuario en la BIOS'); 3 : txtDatosProcesador.Lines.Add ('Estado CPU: Deshabilitado en la BIOS por error'); 4 : txtDatosProcesador.Lines.Add ('Estado CPU: Inactivo'); 5 : txtDatosProcesador.Lines.Add ('Estado CPU: Reservado'); 6 : txtDatosProcesador.Lines.Add ('Estado CPU: Reservado'); 7 : txtDatosProcesador.Lines.Add ('Estado CPU: Otro'); end; case strtoint(obtenerDatosWMI('ProcessorType', 'Win32_Processor', 'root\CIMV2')) of 1 : txtDatosProcesador.Lines.Add ('Tipo de procesador: Otro'); 2 : txtDatosProcesador.Lines.Add ('Tipo de procesador: Desconocido'); 3 : txtDatosProcesador.Lines.Add ('Tipo de procesador: Central'); 4 : txtDatosProcesador.Lines.Add ('Tipo de procesador: Matemático'); 5 : txtDatosProcesador.Lines.Add ('Tipo de procesador: DSP'); 6 : txtDatosProcesador.Lines.Add ('Estado CPU: Vídeo'); 7 : txtDatosProcesador.Lines.Add ('Estado CPU: Otro'); end; txtDatosProcesador.Lines.Add ('Tamaño de datos (DataWith) (bit): ' + obtenerDatosWMI('DataWidth', 'Win32_Processor', 'root\CIMV2')); txtDatosProcesador.Lines.Add ('Nombre: ' + obtenerDatosWMI('Name', 'Win32_Processor', 'root\CIMV2')); txtDatosProcesador.Lines.Add ('Tamaño caché L2 (KB): ' + obtenerDatosWMI('L2CacheSize', 'Win32_Processor', 'root\CIMV2')); txtDatosProcesador.Lines.Add ('Velocidad caché L2 (MHz): ' + obtenerDatosWMI('L2CacheSpeed', 'Win32_Processor', 'root\CIMV2')); txtDatosProcesador.Lines.Add ('Tamaño caché L3 (KB): ' + obtenerDatosWMI('L3CacheSize', 'Win32_Processor', 'root\CIMV2')); txtDatosProcesador.Lines.Add ('Velocidad caché L3 (MHz): ' + obtenerDatosWMI('L3CacheSpeed', 'Win32_Processor', 'root\CIMV2')); txtDatosProcesador.Lines.Add ('Socket: ' + obtenerDatosWMI('SocketDesignation', 'Win32_Processor', 'root\CIMV2')); txtDatosProcesador.Lines.Add ('Velocidad (MHz): ' + obtenerDatosWMI('CurrentClockSpeed', 'Win32_Processor', 'root\CIMV2')); txtDatosProcesador.Lines.Add ('Voltaje (V): ' + obtenerDatosWMI('CurrentVoltage', 'Win32_Processor', 'root\CIMV2')); txtDatosProcesador.Lines.Add ('Descripción: ' + obtenerDatosWMI('Description', 'Win32_Processor', 'root\CIMV2')); txtDatosProcesador.Lines.Add ('Descripción familia (otra): ' + obtenerDatosWMI('OtherFamilyDescription', 'Win32_Processor', 'root\CIMV2')); txtDatosProcesador.Lines.Add ('Fabricante: ' + obtenerDatosWMI('Manufacturer', 'Win32_Processor', 'root\CIMV2')); txtDatosProcesador.Lines.Add ('Revisión: ' + obtenerDatosWMI('Revision', 'Win32_Processor', 'root\CIMV2')); end; procedure TformMenuPrincipal.LWEBClick(Sender: TObject); begin ShellExecute(Handle, Nil, PChar('https://www.proyectoa.com'), Nil, Nil, SW_SHOWNORMAL); end; end. |
- WbemScripting_TLB.pas: se incluye en la descarga del código fuente.