🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: de.comp.lang.pascal
Article #25

Re: Seriennummer eines Datentraegers?

#25
From: Tom Wellige
Date: Wed, 10 Apr 1996 18:43
69 lines
3356 bytes
----------------------------------------------------------------------------
-------------------------------------------------- Bielefeld, Mi 10.04.96 --
----------------------------------------------------------------------------

mgu wrote on 08.04.96 about
"Seriennummer eines Datentraegers?":

MG> wie kann ich die Seriennummer eines Datentraegers (FDD/HDD/CD),
MG> die z.B. beim Formatieren angezeigt wird, mittels eines DOS-/
MG> WIN3.1-/ WIN95- Programms (Programmiersprache egal) ermitteln?

Regelmaessig mitlesen oder in der Pascal-FAQ nachschaun, die hier immer 
wieder gepostet wird. Ich gehoere ja wirklich nicht zu den Leuten, die 
gleich los flamen, aber wenn ein und die gleiche Frage jede Woche einmal 
kommt, dann zeugt das von einer verkehrten Einstellung zu diesem Brett.

Hier sollte es in meinen Augen ein "Geben und Nehmen" geben. D.h. man sollte
auch ruhig mal einen Blick hier rein werfen, wenn man gerade nichts sucht, 
um evtl. auch selbst mal Hilfe leisten zu koennen. Wenn man hier 
allerdings regelmaessig reinschaut, dann stellt sich zumindest diese eine 
Frage sehr bald nicht mehr, denn wie gesagt, in letzer Zeit kam sie quasi 
woechentlich.

BTW: ich habe durch einfaches "mitlesen" wirklich schon eine Menge 
gelernt ! Nur so kann man seinen Horizont erweitern: lesen, lesen, lesen.

Da ich jedoch zu den Leuten gehoere, die gerne helfen, werde ich Dir die 
Antwort jetzt nicht vorenthalten. Ich moechte Dich aber bitten, mal ueber 
meine Worte nachzudenken.

Im 1 Sektor jeder Diskette bzw. Festplatte findet sich die Nummer die Du 
suchst. Das folgende stammt auch nicht original von mir, sondern ich habe es 
beim "mitlesen" aufgeschnappt.


------------ Schnipp --------------------

var sektor : array[1..512] of byte;

procedure readbootblock(Drive : byte); assembler; {0=A: 1=B: usw.}
asm
  mov al, Drive
  mov cx, 1
  mov dx, 0
  mov bx, seg SEKTOR
  mov ds, bx
  mov bx, offset SEKTOR
  int $25
end;

Ab dem Byte 40 findest du dann in SEKTOR 4 Bytes (ein LongInt), die die  
Datentraegernummer enthalten.

------------ Schnipp --------------------


MG> Vielen Dank im vorraus.

Jederzeit wieder :-))


 See you, Tom.
----------------------------------------------------------------------------
-- Tom Wellige ---------------- EMail: (BBS DISTEL in Dieburg, Germany) ----
-- Haller Weg 64 ---------------- PICARD@distel.RoBIN.de -------------------
-- 33617 Bielefeld, GERMANY ------------------------------------------------
-- Dipl.Ing.(FH) NT ----------- HPShell Info Server: -----------------------
-- PGP key on request ----------- HPSHELL@distel.RoBIN.de  Subj.: HELP -----
----------------------------------------------------------------------------
Technical Details
Message-ID: <66cPbraMbxB@picard.distel.robin.de>
Path: arc1-ca.pugleaf.net!PICARD.DISTEL.robin.de!picard
References: <4kb576$re8@narses.hrz.tu-chemnitz.de>

Show Full Headers
Complete Article Headers
X-Mailer: CrossPoint v3.11 R/C6598
Message-ID: <66cPbraMbxB@picard.distel.robin.de>
Organization: Tom Wellige SoftWare
References: <4kb576$re8@narses.hrz.tu-chemnitz.de>
X-Gateway: ZCONNECT UU distel.robin.de [DUUCP vom 01.07.1994]
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
From: picard@distel.robin.de (Tom Wellige)
Subject: Re: Seriennummer eines Datentraegers?
Date: 10 Apr 1996 19:43:00 +0100
Path: arc1-ca.pugleaf.net!PICARD.DISTEL.robin.de!picard
Newsgroups: de.comp.lang.pascal,de.comp.lang.c,de.comp.lang.c++
Distribution: world