Informacion sobre la MotherBoard

[Suriu]

Empezado por cHackAll

a ver...

Código Delphi [-]
function NtOpenSection(var Handle: Cardinal; Access: Cardinal; const Section): Cardinal; stdcall external 'ntdll';
 
procedure TForm1.Button1Click(Sender: TObject);
const Section: array [0..7] of PWideChar = (Ptr(24), nil, @Section[6], Ptr(64), nil, nil, Ptr(3014700), '\Device\PhysicalMemory');
var
 Handle: Cardinal;
 lpBuffer: PChar;
begin
 if NtOpenSection(Handle, 4, Section) = 0 then
  begin
   lpBuffer := MapViewOfFile(Handle, 4, 0, $FC000, $1000);
   if Assigned(lpBuffer) then
    begin
     ShowMessage(TrimRight(PChar(@lpBuffer[$2B7])) + #13 +
                 TrimRight(PChar(@lpBuffer[$2D7])) + #13 +
                 TrimRight(PChar(@lpBuffer[$2F7])) + #13 +
                 TrimRight(PChar(@lpBuffer[$30F])));
     UnmapViewOfFile(lpBuffer);
    end;
   CloseHandle(Handle);
  end;
end; // by cHackAll

Hola cHackAll, vi tu ultima respuesta y la acavo de probar pero lo unico que me pone es un mensage con las tres primeras lineas en blanco y esto "fUèa" en la ultima, que puede ser esto. Gracias por la ayuda que me puedas dar....

[[cHackAll]]

Empezado por Suriu

Hola cHackAll, vi tu ultima respuesta y la acavo de probar pero lo unico que me pone es un mensage con las tres primeras lineas en blanco y esto "fUèa" en la ultima, que puede ser esto. Gracias por la ayuda que me puedas dar....

Bueno, lo que hace el anterior código es leer una porción de la antes conocida "memoria convencional" donde el BIOS hacia una copia de algunos valores. Pero al parecer las posiciones donde están almacenados los valores que requerimos varían segun fabricante.

Lo siguiente te sera más util (VBS);

for each Item in GetObject("winmgmts:").InstancesOf("Win32_BaseBoard")
 wscript.echo "MB: " & Item.Product & vbCrLf & "SN: " & Item.SerialNumber
next

Suerte

[Suriu]

Hola cHackAll, ya probé el VBS y me funciona a las mil maravillas es justo lo que necesitaba, gracias por la ayuda....