Leaked source code of windows server 2003
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
401 B

# The following sample retrieves the FreeSpace property for all
# instances of the class Win32_LogicalDisk.
use Win32::OLE;
$objServices = Win32::OLE->GetObject('cim:root/cimv2');
$objEnum = $objServices->ExecQuery ('select FreeSpace from Win32_LogicalDisk');
use Win32::OLE::Enum;
foreach $inst (Win32::OLE::Enum->new ($objEnum)->All()) {
print "$inst->{Path_}->{DisplayName}\n";
}