Partition zu phys. LW?

[Mattze]

Hi,

ich hab' da mal 'ne Frage - die ich schon sehr lange habe:
Kennt jemand eine (möglichst direkte) Variante, zu welchem physischen Laufwerk eine Partition gehört?

Indirekit habe ich das (alle phys. LW und alle Partitionen auf diesen auslesen und vergleichen), aber möglichst direkt und nicht als Admin?

Gruß
Mattze

[KodeZwerg]

Delphi-Quellcode:

program test;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ActiveX,
  ComObj,
  Variants;

procedure Main;
const
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator     : OLEVariant;
  FWMIService       : OLEVariant;
  wmiDiskDrives     : OLEVariant;
  wmiDiskPartitions : OLEVariant;
  wmiLogicalDisks   : OLEVariant;
  wmiDiskDrive      : OLEVariant;
  wmiDiskPartition  : OLEVariant;
  wmiLogicalDisk    : OLEVariant;
  oEnum             : IEnumvariant;
  oEnum2            : IEnumvariant;
  oEnum3            : IEnumvariant;
  iValue            : LongWord;
  DeviceID          : string;
begin;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '');
  //Get the physical disk drive
  wmiDiskDrives := FWMIService.ExecQuery('SELECT Caption, DeviceID FROM Win32_DiskDrive','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(wmiDiskDrives._NewEnum) as IEnumVariant;
  while oEnum.Next(1, wmiDiskDrive, iValue) = 0 do
  begin
     //Use the disk drive device id to find associated partition
     DeviceID:=StringReplace(String(wmiDiskDrive.DeviceID),'\','\\',[rfReplaceAll]);
     wmiDiskPartitions := FWMIService.ExecQuery('ASSOCIATORS OF {Win32_DiskDrive.DeviceID="'+DeviceID+'"} WHERE AssocClass = Win32_DiskDriveToDiskPartition','WQL',wbemFlagForwardOnly);
     oEnum2          := IUnknown(wmiDiskPartitions._NewEnum) as IEnumVariant;
     while oEnum2.Next(1, wmiDiskPartition, iValue) = 0 do
     begin
        wmiLogicalDisks := FWMIService.ExecQuery('ASSOCIATORS OF {Win32_DiskPartition.DeviceID="'+String(wmiDiskPartition.DeviceID)+'"} WHERE AssocClass = Win32_LogicalDiskToPartition','WQL',wbemFlagForwardOnly);
        oEnum3          := IUnknown(wmiLogicalDisks._NewEnum) as IEnumVariant;
        while oEnum3.Next(1, wmiLogicalDisk, iValue) = 0 do
        begin
          Writeln(Format('Drive letter associated with disk drive  %s %s Partition %s is %s',[String(wmiDiskDrive.Caption),String(wmiDiskDrive.DeviceID),String(wmiDiskPartition.DeviceID),String(wmiLogicalDisk.DeviceID)]));
          wmiLogicalDisk:=Unassigned;
        end;
       wmiDiskPartition:=Unassigned;
     end;
    wmiDiskDrive:=Unassigned;
    Writeln;
  end;
end;

begin
 try
    CoInitialize(nil);
    try
      Main;
    finally
      CoUninitialize;
    end;
 except
    on E:EOleException do
        Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode]));
    on E:Exception do
        Writeln(E.Classname, ':', E.Message);
 end;
 Writeln('Press Enter to exit');
 Readln;
end.

Das macht exakt was Du möchtest.

Im Anhang Binary plus Source.


Ps: Ob man Admin-Rechte braucht oder nicht teste bitte selber, da enthalte ich mich.

[Mattze]

Hi,

vielen Dank für die schnelle Amtwort. Auf WMI hätte ich auch selber kommen müssen, aber manchmal sieht ma eben den Wald vor lauter Bäumen nicht.

Das ist eine der "indirekten" Varianten.

Fragestellung:

Ich habe Partition J:. Auf welchem phys. Laufwerk ist die?

Die indirekte Variante: Man sucht alle physischen Laufwerke und deren Partitionen zusammen und vergleicht, wo Partition J: ist. Dann hat man das Ergebnis.
Ich gehe aber davon aus, dass das eigentlich sehr oft (vom IO-System) gebraucht wird und es daher eine schnellere direkte Variante gibt.

Gibt es sowas?

Gruß
Mattze

[KodeZwerg]

Ich Verstehe die Frage nicht ganz.
Der Source da oben gibt Dir alle Verbauten PHYSICALDRIVEs plus jeweils die zugehörigen Partitions-Nummer + Driveletter (#0 #1 #2 usw <-> C: D: E: usw)
Reicht das nicht aus um das zu basteln was Du möchtest?

[Mattze]

Hi,

natürlich reicht das auch.
Ich habe nur die umgekehrte Fragestellung.
Wie Du selber schreibst:
Zuerst (!) kriegst Du die physischen LWs, dann die Partitionsnummer und dann den Driveletter.

Ich möchte es genau anderschrum:
Ich habe den Driveletter und möchte von dem ausgehend (!) das physische LW kriegen.
(Und nicht über Deinen Weg mit Vergleich des Driveletters!)

Gruß
Mattze

PS: Dein WMI-Weg klappt übrigens ohne ADMIN-Rechte.

[KodeZwerg]

Ok ich verstehe, ich tüftel mal was... bis gleich :=)