13 lines
352 B
Perl
13 lines
352 B
Perl
# The following sample retrieves all instances of the class
|
|
# Win32_LogicalDisk.
|
|
|
|
use Win32::OLE;
|
|
$objServices = Win32::OLE->GetObject('cim:root/cimv2');
|
|
$objEnum = $objServices->InstancesOf ('Win32_LogicalDisk');
|
|
|
|
use Win32::OLE::Enum;
|
|
foreach $inst (Win32::OLE::Enum->new ($objEnum)->All()) {
|
|
print "$inst->{Path_}->{DisplayName}\n";
|
|
}
|
|
|