12 lines
405 B
Perl
12 lines
405 B
Perl
# The following sample enumerates all instances of the class
|
|
# Win32_LogicalDisk, and extract the the member with a specified
|
|
# relative path.
|
|
|
|
use Win32::OLE;
|
|
$objServices = Win32::OLE->GetObject('cim:root/cimv2');
|
|
$objEnum = $objServices->ExecQuery ('select * from Win32_LogicalDisk');
|
|
$objInstance = $objEnum->{'Win32_LogicalDisk="C:"'};
|
|
|
|
print "$objInstance->{Path_}->{DisplayName}\n";
|
|
|