#!/usr/bin/perl -w 
#
# requires win32::lanman
# get it from http://jenda.krynicky.cz/
# or install from ppm (set repository Jenda http://Jenda.Krynicky.cz/p
+erl)
# or on ppm 3.0.1 (repository add Jenda http://Jenda.Krynicky.cz/perl)
#

use strict;
use Win32::Lanman;

my @drives;
my @computerlist = ("computer_a","computer_b");

foreach my $computer (@computerlist) {
 chomp $computer;
 Win32::Lanman::NetServerDiskEnum("\\\\$computer",\@drives);
}

foreach my $drive (@drives)
{
 print "$drive\n";
}
[download]