Unfortunately, you will need to have something on each remote server that runs locally on each one to collect the drive information that you're after. If you're not wanting to install and maintain Perl environments everywhere, you could use something like the pp utility from PAR::Packer to bundle your script into a stand alone executable that can be distributed and run on each system.

However, you still need to find a way to remotely execute something on each server and retrieve outputs. Unfortunately, Windows does not automatically have something like a telnet or SSH server installed and running. There are couple of alternatives to installing a telnet or SSH server on each remote system. If have PowerShell installed (its part of newer Windows versions and can be installed on some older versions), PowerShell has an ability to issue commands to on remote Windows systems. I haven't done that myself, so I can't provide pointers on how to use PowerShell to do that.

Another alternative is using PsExec from the SysInternals suite of tools available for free from Microsoft's web site.

There are probably lots of other ways to remotely run programs on Windows systems, but the suggestions above are a good starting point.

I was worried about that, and seems to be what I thought. Windows does not really seem to offer an easy SSH or telnet solution. Would have preferred something like that as I have worked with SSH on AIX boxes in the past and they seem to be more straight forward. Oh well on-wards to see what I can come up with! Thanks

If you really want the script to run on multiple machines without having to install perl on them, you could use PAR::Packer and its pp.

However, this essentially makes a copy of perl's runtime system and has to unpack it on every run. It does work, but start-up time is considerable.

For the special case in the OP, I'd rather suggest going with WMI. One of the examples for DBD::WMI actually deals with remote machines...

printf "$gbfree GB free from total of $gbtotal GB\n";
printf "total GB used $gbused\n";
printf "$perfree%% free  on drive $drive\n";
[download]

Seems to be a monitoring task ;-)

I don't know your environment but perhaps it is an option for you to set up a Linux box running Nagios?

If so you could simply use SNMP and Nagios for gathering information about Windows drives etc. instead of bothering with remote execution, PAR::Packer a.s.o.

Regards, Karl

Thanks Karl, unfortunately Linux box is not an option at this time in this environment

As I remember (it has been a few years), Nagios can talk to probes on Windows machines just fine. Whether a Nagios monitoring host will live under Windows is a question that an appeal to the Doc may answer. At worst you could run Nagios on a Linux image inside a Windows Virtual machine (or use Cygwin).

----
I Go Back to Sleep, Now.

OGB

use Win32::OLE('in');
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;

sub Logical_Disks   
    {
        my $computer=shift;
        my %HoH = ();

        my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$compu
+ter\\root\\CIMV2") or die "WMI connection failed.\n";
        my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_
+LogicalDisk", "WQL",
                  wbemFlagReturnImmediately | wbemFlagForwardOnly)||wa
+rn $!;

        foreach my $objItem (in $colItems) {
            my @drivetype= ('Unknown', 'No RootDirectory', 'RemovableD
+isk', 'LocalDisk', 'Network Drive', 'Compact Disc', 'RAM Disk');
            #next if $objItem->{Name}->{'DriveType'} ne 'LocalDisk';#s
+kip non logical disks
            $HoH{ $objItem->{Name} }{ 'DriveType' } =$drivetype[$objIt
+em->{DriveType}] ;
            $HoH{ $objItem->{Name} }{ 'VolumeName' } = $objItem->{Volu
+meName};
            $HoH{ $objItem->{Name} }{ 'Size' } = $objItem->{Size};
            $HoH{ $objItem->{Name} }{ 'FreeSpace' } = $objItem->{FreeS
+pace};

   }
   foreach my $key(keys %HoH){delete $HoH{$key} unless  $HoH{$key}->{'
+DriveType'} eq 'LocalDisk'}
   return \%HoH;
}
[download]