Unique PCCode

При загрузке компа, прога POST выдает уникальный идентификатор компа снизу на экране. в левом углу. Он достаточно длинный.. Как его получить программно?

У меня есть утилитка biosid размером порядка 1к, когда меня интересовал этот вопрос года полтора назад, я ее дизассемблировал и разбирался что к чему. Сейчас, конечно, уже не помню, но саму утилитку и более-менее причесанный ее исходник могу прислать...

Присылай на <IpLilo@list.ru>/ Буду рад дизасмить это дело =)

Вот тебе на Pascal'е:

procedure ShowBios; { From HDDSPEED : APPWIN.PAS }
var
 I : Integer;
 S : String;

 function GetBIOSString(Seg, Ofs: Word): String;
 var
   P : ^String;
   i : Byte;
   S : String;
 begin
   GetBIOSString := '';
   P := Ptr(Seg,Ofs);
   i := 1;
   While P^[i] >= ' ' do Inc(i);
   S[0] := Char(i-1); Move(P^[1],S[1],i-1);
   GetBIOSString := S;
 end;

 function IsAMI : Boolean;
 var
   P : ^String;
   i : Word;
   S : String;
 begin
   P := Ptr($F000,$E000);
   S[0] := #255;
   Move(P^,S[1], 255);
   IsAMI := Pos('American Megatrends', S) <> 0;
 end;

begin
 If IsAMI
 Then S := '© American Megatrends Inc.'
 Else S := GetBIOSString($F000,$E060);
 WriteLn('> BIOS: '+S);
 If Pos('Award', S) <> 0 Then
 begin
   WriteLn('  - Version : '+GetBIOSString($F000,$E0C0));
   WriteLn('  - ID      : '+GetBIOSString($F000,$EC70));
 end;
end;

begin
  ShowBios
end.