![]() |
USB-Seriennummer auslesen
Hallo zusammen,
nach einiger Sucherei und eigenen Experimenten habe ich eine Funktion zum Ermitteln der hardwaremäßigen Seriennummer eines angeschlossenen USB-Sticks erstellt, die unter WinXP bis Win 7 funktioniert. Übergeben wird eine Stringlist mit zu prüfenden Seriennummern. Ist eine der Nummern die Seriennummer eines angeschlossenen USB-Sticks, wird True zurückgeliefert. Bisher haben alle Sticks, die ich hier zur Verfügung habe funktioniert, darunter auch Werbesticks. Man muss nur die SetupAPI aus dem Jediprojekt mit einbinden. Der CfgMgr ist nicht notwendig. Getestet habe ich das Ganze bisher unter folgenden Betriebssystemen: Win XP 32, Win7 32/64, Server 2003 R2, Server 2008 R2. (Vista sollte auch funktionieren. Vielleicht sogar Win2k.) Quellen: Alles was man bei Google und hier zum Thema findet. ;) Vielleicht ist's ja was für die Codelib. Grüße, Uwe
Delphi-Quellcode:
// SetupApi muss eingebunden sein!
function FindUsbSerialNumber(SerialNumbers : TStrings): Boolean; const GUID_DEVINTERFACE_USB_DEVICE: TGUID = '{A5DCBF10-6530-11D2-901F-00C04FB951ED}'; var StorageGUID: TGUID; pHandle: HDEVINFO; DevData: TSPDevInfoData; DeviceInterfaceData: TSPDeviceInterfaceData; FunctionClassDeviceData: PSPDeviceInterfaceDetailData; bSuccess: Boolean; iDevn, i, iPos: Integer; dwBytesReturned: DWORD; sDevStr, sSerialNumber : string; begin Result := False; StorageGUID := GUID_DEVINTERFACE_USB_DEVICE; // alle angeschlossenen USB-Geräte prüfen pHandle := SetupDiGetClassDevs(@StorageGUID, nil, 0, DIGCF_PRESENT or DIGCF_DEVICEINTERFACE); if pHandle = Pointer(INVALID_HANDLE_VALUE) then Exit; try iDevn := 0; repeat DeviceInterfaceData.cbSize := SizeOf(TSPDeviceInterfaceData); bSuccess := SetupDiEnumDeviceInterfaces(pHandle, nil, StorageGUID, iDevn, DeviceInterfaceData); if bSuccess then begin DevData.cbSize := SizeOf(DevData); dwBytesReturned := 0; SetupDiGetDeviceInterfaceDetail(pHandle, @DeviceInterfaceData, nil, 0, dwBytesReturned, @DevData); if (dwBytesReturned <> 0) then begin FunctionClassDeviceData := AllocMem(dwBytesReturned); try FunctionClassDeviceData.cbSize := SizeOf(TSPDeviceInterfaceDetailData); if SetupDiGetDeviceInterfaceDetail(pHandle, @DeviceInterfaceData, FunctionClassDeviceData, dwBytesReturned, dwBytesReturned, @DevData) then begin sDevStr := copy(PWideChar(@FunctionClassDeviceData.DevicePath), 0, MaxInt); // Seriennummer aus sDevStr extrahieren iPos := Pos('#', sDevStr); if iPos > -1 then begin sSerialNumber := copy(sDevStr, iPos + 1, MaxInt); iPos := Pos('#', sSerialNumber); if iPos > -1 then begin sSerialNumber := copy(sSerialNumber, iPos + 1, MaxInt); iPos := Pos('#', sSerialNumber); if iPos > -1 then begin sSerialNumber := copy(sSerialNumber, 1, iPos - 1); // alle übergebenen Seriennummern vergleichen i := 0; while (i < SerialNumbers.Count) and not Result do begin Result := AnsiUpperCase(sSerialNumber) = SerialNumbers[i]; Inc(i); end; end; end; end; end; finally FreeMem(FunctionClassDeviceData); end; end; end; Inc(iDevn); until Result or not bSuccess; finally SetupDiDestroyDeviceInfoList(pHandle); end; end; |
AW: USB-Seriennummer auslesen
Wenn man den Code so ändern würde, dass die gefundenen Seriennummern in die Stringliste eingetragen werden, dann wäre das eine nützliche Funktion.
Dass die gefundene Seriennummer mit einer übergebenen Liste abgeglichen wird ist doch eher etwas einschränkend. |
AW: USB-Seriennummer auslesen
Hallo sx2008,
Ich hab's aber "so rum" gebraucht. Aber es ist ja kein 1000-Zeiler. Das kriegst Du schon hin, oder? Wenn nicht, einfach nochmal fragen. ;) Grüße, Uwe |
AW: USB-Seriennummer auslesen
Was du für dich mal ausprobieren könntest:
Ich hab einen USB auf MicroSD Dongle. Diese "USB-Sticks" liefern alle die gleiche Seriennummer (bzw. keine). Ich kann mich nur gerade nicht Erinnern welche das war. Es war was banales wie 12345678 oder 00000000. |
AW: USB-Seriennummer auslesen
Zitat:
In der Überschrift steht "Seriennummer auslesen", in Wirklichkeit wird aber geprüft ob eine Seriennummer in einer Liste vorhanden ist. Auch der Name "FindUsbSerialNumber()" passt nicht zu dem was die Funktion tut; sie müsste eher "CheckUsbSerialNumbers()" heissen. Für die Code-Library wäre das Auslesen aller USB Seriennummern deutlich nützlicher als eine Funktion die nur prüft ob die erste gefundene USB Seriennummer in einer Stringliste enthalten ist. |
AW: USB-Seriennummer auslesen
Es ist auf jeden Fall - schon wegen der Wiederverwendbarkeit - sinnvoller die einzelnen Funktionsteile auseinander zu ziehen.
Möglich wäre folgende Implementierung:
Delphi-Quellcode:
unit USBSerialNumber;
interface uses Classes; function GetUSBSerialNumbers( AList : TStrings ) : Boolean; function CheckUSBSerialNumbers( ASerialList : TStrings ) : Boolean; overload; function CheckUSBSerialNumbers( ASerial : string ) : Boolean; overload; implementation uses SetupAPI; function GetUSBSerialNumbers( AList : TStrings ) : Boolean; // Hier die Original-Routine, die aber nur die Liste mit den ausgelesenen Seriennummern liefert function CheckUSBSerialNumbers( ASerialList : TStrings ) : Boolean; overload; var AList : TStrings; begin Result := False; AList := TStringList.Create; try if GetUSBSerialNumbers( AList ) then // hier jetzt die Seriennummern vergleichen finally AList.Free; end; end; function CheckUSBSerialNumbers( ASerial : string ) : Boolean; overload; var AList : TStrings; begin AList := TStringList.Create; try AList.Add( ASerial ); Result := CheckUSBSerialNumbers( AList ); finally AList.Free; end; end; end. |
AW: USB-Seriennummer auslesen
Hallo zusammen,
wie man das Ganze verwendet, ist ja doch sehr von der Anwendung abhängig. Es geht nicht darum, wie und ob man TStringList verwendet. :roll: Der Witz ist eigentlich, dass man GUID_DEVINTERFACE_USB_DEVICE verwendet und nicht die vielen anderen Deskriptoren (zum Beispiel Volume oder Hid), die zwar teilweise auch zum Ziel führen, aber unschöne Sonderbehandlungen für WinXP/Vista/Win7 zur Folge haben. Wenn man per Google oder hier sucht, findet man relativ alte Beiträge, die selten bis gar nicht auf Win7 eingehen und eben nicht GUID_DEVINTERFACE_USB_DEVICE verwenden. Wer sich mit der Seriennummerproblematik beschäftigt, findet meinen Ansatz vielleicht interessant, der aber nichts weiter ist als eine Umwandlung der vorhandenen Ansätze. Wie und ob das Ganze "codelibwürdig" ist, ist mir eigentlich nicht sonderlich wichtig. ;) Grüße, Uwe P.S.: Das Problem mit USB-Sticks, die alle dieselbe Seriennummer haben, ist mir schon bekannt, war aber für meinen Anforderungsfall nicht von Belang. Es ging darum eine Anwendung nur dann zu starten, wenn ein USB-Stick aus einer Menge von zugelassenen USB-Sticks am Rechner steckt. Billig-USB-Sticks mit "Unseriennummern" wurden einfach nicht zugelassen. |
AW: USB-Seriennummer auslesen
Hier noch als Ergänzung ein Code-Fragment über den WMI-Ansatz:
Delphi-Quellcode:
Beim Einsatz von zugelassenen USB-Sticks ist darauf zu achten, dass es für eine Reihe von OEM-Produkten (z.B. ChipsBank etc.) inoffizielle Software gibt, mit der man u.a. die Seriennr. und den Sticknamen setzen kann. Damit muss mein freundlicher Raubkopierer noch nicht mal mehr ein Hacker sein. AFAIK gibt es für einige Marken-Produkte (Sandisk) das - bislang - noch nicht. Wen es interessiert, der sucht einfach nach einer russischen Flashboot-Seite und erkundigt sich nach dem Stand der Dinge. Auf jeden Fall darf man sich mit der Abfrage einer zugelassenen Seriennr. allein auch nicht allzu sicher sein.
var
objWMIService: OLEVariant; colItems: OLEVariant; colItem: OLEVariant; oEnum: IEnumvariant; i: Integer; aUSBSerial : string; aRegexpr : TArray<string>; aDeviceID : string; begin try objWMIService := GetWMIObject('winmgmts:\\localhost\root\cimv2'); colItems := objWMIService.ExecQuery('Select * From Win32_DiskDrive Where InterfaceType="USB"', 'WQL', 0); oEnum := IUnknown(colItems._NewEnum) as IEnumVariant; for i := 0 to colItems.Count - 1 do if oEnum.Next(1, colItem, iValue) = 0 then begin // Get the first part: aRegexpr := TRegEx.Split(colItem.PNPDeviceID, '\\'); // Split with & and get the first part. aRegexpr := TRegEx.Split(aRegexpr[High(aRegexpr)], '&'); aUSBSerial := aRegexpr[0]; //Escape the `\` chars in the DeviceID value because the '\' is a reserved character in WMI. aDeviceID := StringReplace(VarStrNull(colItem.DeviceID),'\','\\',[rfReplaceAll]); |
AW: USB-Seriennummer auslesen
Nabend :-)
hab mich durch eure code´s gearbeitet, (setupApi zwar zum download gefunden aber wie einbauen, bei dem anderen bekomme die Meldung das Form1 nicht deklariert wurde ...) bin in dem bereich noch absoluter Neuling. ..dennoch irgendwie bekomme es nicht wirklich gebacken das wenn einen bestimmten USB stick (snr Erkennung) anstecke sich dann eine bestimmte .exe (C:\magicn\menu.exe) öffnet.... Könnt Ihr mir da weiterhelfen? |
AW: USB-Seriennummer auslesen
Hallo zusammen,
ich verwende in meinem Programm den WMIService, um die angeschlossenen Laufwerke, vor allem die USB-Sticks zu erkennen. Dabei benötige ich die Variable FWbemObject.PNPDeviceID. Leider habe ich nun bei einigen Usern festgestellt, dass das FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_DiskDrive WHERE InterfaceType = "USB"'); bei einigen Tablet-Computern leer bleibt (u.a. auf dem Microsoft Surface Tablet mit Windows 10). Ich suche nun nach einer 2. Möglichkeit, auf die ich zugreifen kann und hatte mir folgendes vorgestellt: Falls das FWbemObjectSet nach dem Query-Befehl leer ist, könnte das Programm auf eine Alternative (evtl. eine kleine EXE in C++, ...) zurückgreifen, die aus meinem Delphi Programm heraus starte um die Laufwerke in eine Liste einzulesen (z.B. eine Textdatei). Leider bin ich mit C++ nicht vertraut. Ich habe hier einen Link gefunden: ![]() Wer könnte mir dabei weiterhelfen? Ich wäre für Eure Hilfe sehr dankbar! |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:27 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz