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
348 B
12 lines
348 B
# The following sample retrieves all subclasses of the class
|
|
# CIM_LogicalDisk.
|
|
|
|
use Win32::OLE;
|
|
$objServices = Win32::OLE->GetObject('cim:root/cimv2');
|
|
$objEnum = $objServices->SubclassesOf ('CIM_LogicalDisk');
|
|
|
|
use Win32::OLE::Enum;
|
|
foreach $inst (Win32::OLE::Enum->new ($objEnum)->All()) {
|
|
print "$inst->{Path_}->{DisplayName}";
|
|
}
|
|
|