Ich habe dazu mal folgenden Link gefunden als
VB-Script. Oder du probierst es so :
Delphi-Quellcode:
If not WMIGetInfo('.', 'root\CIMV2', '', '', 'Win32_DiskPartition', WMIResults) Then
begin
result := Infos + CRLF + CRLF + 'Fehler beim Auslesen der physikalischen Festplatten';
Exit;
end;