use strict;
use warnings;
use Win32::OLE qw(in);

my $objWMIService = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate,(security)}//.");
die "Error" unless $objWMIService;
my $wmiDiskDrives = $objWMIService->ExecQuery("SELECT Caption, DeviceID, InterfaceType FROM Win32_DiskDrive");

print "Device Caption  ->  InterfaceType  ->   Drive Letter\n";
print "=" x 60 . "\n";

foreach my $wmiDiskDrive ( in( $wmiDiskDrives ) ) {
	my $deviceID=$wmiDiskDrive->{DeviceId};
	$deviceID=~s/\\/\\\\/sg;
	my $map=qq|ASSOCIATORS OF {Win32_DiskDrive.DeviceID="$deviceID"} WHERE AssocClass = Win32_DiskDriveToDiskPartition|;
	#print "$map\n";
	my $wmipartitions = $objWMIService->ExecQuery($map);
	foreach my $wmipartition ( in( $wmipartitions ) ) {
		my $deviceID=$wmipartition->{DeviceId};
		my $map=qq|ASSOCIATORS OF {Win32_DiskPartition.DeviceID="$deviceID"} WHERE AssocClass = Win32_LogicalDiskToPartition|;
		#print "\t$map\n";
		my $wmiLogicalDisks = $objWMIService->ExecQuery($map);
		foreach my $wmiLogicalDisk ( in( $wmiLogicalDisks ) ) {
			my $drive=$wmiLogicalDisk->{DeviceId};
               print join("  ->  ", $wmiDiskDrive->{Caption}, $wmiDiskDrive->{InterfaceType} , $wmiLogicalDisk->{DeviceId});
  			print  "\n";
			}
		}
	}