| 255 |
rodolico |
1 |
#!/usr/bin/env perl
|
|
|
2 |
use warnings;
|
|
|
3 |
use strict;
|
|
|
4 |
|
|
|
5 |
# Description: Windows Drive Parition information
|
|
|
6 |
|
|
|
7 |
our $VERSION = '0.1.0';
|
|
|
8 |
|
|
|
9 |
# This is a simple script to gather some basic information on drives
|
|
|
10 |
# on a Windows system
|
|
|
11 |
|
|
|
12 |
|
|
|
13 |
# find our location and use it for searching for libraries
|
|
|
14 |
BEGIN {
|
|
|
15 |
use FindBin;
|
|
|
16 |
use File::Spec;
|
|
|
17 |
use lib File::Spec->catdir($FindBin::Bin);
|
|
|
18 |
eval( 'use library;' );
|
|
|
19 |
die "Could not find library.pm in the code directory\n" if $@;
|
|
|
20 |
eval( 'use Data::Dumper;' );
|
|
|
21 |
}
|
|
|
22 |
|
|
|
23 |
# check for valid OS.
|
|
|
24 |
exit 1 unless &checkOS( { 'mswin32' => undef } );
|
|
|
25 |
|
|
|
26 |
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
|
|
|
27 |
# script returns a 2
|
|
|
28 |
#foreach my $command ( 'systeminfo' ) {
|
|
|
29 |
# exit 2 unless $commands{$command} = &validCommandOnSystem( $command );
|
|
|
30 |
#}
|
|
|
31 |
# category we will use for all values found
|
|
|
32 |
# see sysinfo for a list of valid categories
|
|
|
33 |
my $CATEGORY = 'diskinfo';
|
|
|
34 |
|
|
|
35 |
use Win32::DriveInfo;
|
|
|
36 |
|
|
|
37 |
my @drives = Win32::DriveInfo::DrivesInUse();
|
|
|
38 |
# print join( "\n", @drives ) . "\n";
|
|
|
39 |
|
|
|
40 |
foreach my $drive ( @drives ) {
|
|
|
41 |
printf( "%s\t%s\t%s\t%s\n", $CATEGORY, $drive, 'fstype', ( Win32::DriveInfo::VolumeInfo ( $drive ) )[3] );
|
|
|
42 |
printf( "%s\t%s\t%s\t%s\n", $CATEGORY, $drive, 'size', int( (Win32::DriveInfo::DriveSpace($drive))[5] / 1024 + 0.5 ) );
|
|
|
43 |
printf( "%s\t%s\t%s\t%s\n", $CATEGORY, $drive, 'used', int ( ( (Win32::DriveInfo::DriveSpace($drive))[5] - (Win32::DriveInfo::DriveSpace($drive))[6] ) / 1024 + .5) );
|
|
|
44 |
}
|
|
|
45 |
# in scalar, will simply return the short name. use 'scalar' to force that.
|
|
|
46 |
#printf( "%s\t%s\t%s\n", $CATEGORY, 'distribution', scalar Win32::GetOSName() );
|
|
|
47 |
#printf( "%s\t%s\t%s\n", $CATEGORY, 'description', Win32::GetOSDisplayName() );
|
|
|
48 |
|
|
|
49 |
exit 0;
|