You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
352 B
12 lines
352 B
# 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";
|
|
}
|
|
|