We recently had need to grab a small file from each of some 100+ boxes (network management devices running NT4 client) to a Perl script running on Solaris. We can't make changes on these clients but the file is available on a network share.
Enter the Filesys::SmbClient module, the documentation of which shows the use of a Tie that would make reading the file much easier. The example however does not pass any parameters like login credentials.
We eventually got the following to work.
#!perl -w
use strict;
use POSIX;
my @args = (
username => 'userid',
password => 'passwd',
debug => 10
);
my $filename = 'smb://host/directory/file';
local *FD;
tie *FD, 'Filesys::SmbClient', $filename, '0666', @args;
while (<FD>) {print}
close(FD);
We haven't yet used this in anger, it works on a single device and hopefully on all the rest too.
Comment are welcome on any better way to go about this and the program will only need to be run 2-3 times a year.