Von Thomas Kurz am 18 April, 1998 um 00:15:43:
Wie man die Seriennummer einer Diskette auslesen kann, hat uns bereits Richard Maurukas
(weiter unten im Board) gezeigt. Nun habe ich in der PC-Welt 5/98, Seite 271 ein Dos Listing gefunden wo mit
Hilfe des Dos Programms Debug auch die Seriennummer beschrieben werden kann. Ich habe das ganze
Profantauglich gemacht. (Hoffentlich habe ich dabei kein Copyright verletzt).
Sicher nicht die eleganteste Lösung aber es funktioniert. Ich hätte auch lieber eine reine Windows Version. Unter
http://ourworld.compuserve.com/homepages/Thomas_Fuessl/serialid.htm
wird eine DLL für VB (30 DM) angeboten die das auch erledigt. Ich denke das man das ganze auch unter Profan
nutzen könnte. Abschrecken tun mich nicht die 30 DM, sondern das ich für eine einzige Funktion wieder eine
DLL bräuchte. Falls es aber irgendwie anders geht ??
Nun zum Listing. Debug.exe muß dabei im Pfad stehen.
declare sndat$,neusn$,Verz$,befehl$
'Als nächstes wird die Seriennummer übergeben. Natürlich auch
'per Variablen möglich. (nur Hex Zahlen !!!)
Let neusn$="AB 22 EF 22"
LET verz$ = @getdir$("@")' Das aktuelle Verz.
Let sndat$=verz$;"\sn.dat"
'Nachfolgende Einträge werden in die SN.dat geschrieben.
Assign #2,sndat$
Rewrite #2
Print #2,"L100 0 0 1" ‘LW A:
‘Print #2,"L100 1 0 1" ‘LW B:
‘Print #2,"L100 2 0 1" ‘Erste Festplatte
Print #2,"E127",neusn$
Print #2,"W100 0 0 1" ‘LW A:
Print #2,"Q"
Close #2
chdir verz$
let befehl$="C:\WINDOWS\COMMAND.COM /C";" debug.exe < ";"sn.dat"
winexec (befehl$,0)
Für Verbesserungsvorschläge bin ich dankbar.
mfg Thomas Kurz