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.
32 lines
884 B
32 lines
884 B
|
|
# list free space on all drives
|
|
|
|
use strict;
|
|
|
|
use Win32::OLE;
|
|
use Win32::OLE::Enum;
|
|
use Win32::OLE::Const 'Microsoft WMI Scripting V1.1 Library';
|
|
|
|
use Getopt::Std;
|
|
|
|
# below is the old version if you should need it.
|
|
# use Win32::OLE::Const 'Microsoft WBEM Scripting V1.0 Library';
|
|
|
|
use vars qw($locator $serv $opt_h $objs);
|
|
|
|
((2 == @ARGV) || (0 == @ARGV)) || die "Useage: [-h host] \n";
|
|
getopts('h:') || die "Useage: [-h host] \n";
|
|
|
|
$locator = Win32::OLE->new('WbemScripting.SWbemLocator') or die "loc\n";
|
|
|
|
$serv = $locator->ConnectServer(($opt_h) ? $opt_h : '.');
|
|
$serv->{security_}->{ImpersonationLevel} = wbemImpersonationLevelImpersonate;
|
|
|
|
$objs = $serv->ExecQuery("Select FreeSpace, DeviceID From Win32_LogicalDisk");
|
|
|
|
print "Free Space (bytes)\n";
|
|
foreach (Win32::OLE::Enum->new($objs)->All())
|
|
{
|
|
print "$_->{DeviceID}\:\t $_->{FreeSpace}\n";
|
|
}
|
|
|