USB-Seriennummer auslesen

[walharth]

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: https://stackoverflow.com/questions/...om-wmi-using-c


Wer könnte mir dabei weiterhelfen? Ich wäre für Eure Hilfe sehr dankbar!