Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl
use warnings;
use strict;  

# Description: Windows Drive Parition information

our $VERSION = '0.1.0';

# This is a simple script to gather some basic information on drives
# on a Windows system


# find our location and use it for searching for libraries
BEGIN {
   use FindBin;
   use File::Spec;
   use lib File::Spec->catdir($FindBin::Bin);
   eval( 'use library;' );
   die "Could not find library.pm in the code directory\n" if $@;
   eval( 'use Data::Dumper;' );
}

# check for valid OS. 
exit 1 unless &checkOS( { 'mswin32' => undef } );

# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
# script returns a 2
#foreach my $command ( 'systeminfo' ) {
#   exit 2 unless $commands{$command} = &validCommandOnSystem( $command );
#}
# category we will use for all values found
# see sysinfo for a list of valid categories
my $CATEGORY = 'diskinfo';

use Win32::DriveInfo;

my @drives = Win32::DriveInfo::DrivesInUse();
# print join( "\n", @drives ) . "\n";

foreach my $drive ( @drives ) {
        printf( "%s\t%s\t%s\t%s\n", $CATEGORY, $drive, 'fstype', ( Win32::DriveInfo::VolumeInfo ( $drive ) )[3] );
        printf( "%s\t%s\t%s\t%s\n", $CATEGORY, $drive, 'size', int( (Win32::DriveInfo::DriveSpace($drive))[5] / 1024 + 0.5 ) );
        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)  );
}       
# in scalar, will simply return the short name. use 'scalar' to force that.
#printf( "%s\t%s\t%s\n", $CATEGORY, 'distribution', scalar Win32::GetOSName() );
#printf( "%s\t%s\t%s\n", $CATEGORY, 'description', Win32::GetOSDisplayName() );

exit 0;