Informacion sobre la MotherBoard

[krlox31416]

deseas saber si hay un programa que te muestre eso???...

si es así puedes descargarte el everest!!!...

si tu duda es hacer una aplicación desde delphi???..

parece que vi eso en un hilo... pero no recuerdo...
es cuestion de buscar...

saludos!!!

[yarielrs]

Empezado por krlox31416

deseas saber si hay un programa que te muestre eso???...

si es así puedes descargarte el everest!!!...

si tu duda es hacer una aplicación desde delphi???..

parece que vi eso en un hilo... pero no recuerdo...
es cuestion de buscar...

saludos!!!

Gracias krlox31416 y gracias tambien a [cHackAll] lo que quiero es hacer una aplicacion desde delphi para obtener el ID de la MotherBoard. Estube buscando en el foro y en el enlace que me puso cHackAll pero esto lo que hace es darte la fecha de creacion y la version del bios. Pues que me queda sino seguir buscando......

Gracias de todas formas por su ayuda

[[cHackAll]]

Empezado por yarielrs

...esto lo que hace es darte la fecha de creacion y la version del bios...

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

[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....