perl 如何用wmi实现硬盘空间大小的收集

gxhxdxj

perl 如何用wmi实现硬盘空间大小的收集，现在只找到硬盘剩余空间的资料。如：
# get free disk sizes
sub get_disk {
        my $class = shift;
        my $total = "";
        $total .= "DISK ".$_->{DeviceID}." Free: ".$_->{FreeSpace}."
Bytes\n" foreach in($class);
               
        return $total

perlnewbie

Win32_LogicalDisk

1. 
   
2. #!perl -w
   
3. use strict;
   
4. use Win32::OLE qw(in);
   
5. my $disk = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate}")->InstancesOf("Win32_LogicalDisk");
   
6. 
   
7. for( in $disk ){
   
8.     print join "\t",
   
9.         $_->{Name},
   
10.         $_->{Size},
    
11.         $_->{FreeSpace},
    
12.         $_->{FileSystem};
    
13.      print "\n";
    
14. }
    

复制代码

609854

1. `wmic LOGICALDISK  list brief`;

复制代码