Displaying 1 result from an estimated 1 matches for "getshr".
Did you mean:
getashr
2004 Sep 29
0
Problem with Perl module, SmbClientParser-2.6
...ientParser;
use DBI();
use Socket;
use Sys::Hostname;
use strict;
my $host;
my $smb = new Filesys::SmbClientParser
(undef,
(
user => '',
password => ''
));
$smb->Debug('1');
$smb->Host('localhost');
my @l = $smb->GetShr;
foreach (@l) {print $_->{name},"\n";}
[/CODE]
All i got for the output is the default usage of smbclient
[CODE]
==> SmbClientParser::command /usr/bin/smbclient -d1-L '\\localhost' -D "/"
Usage: [-?] [-?EgV] [-?EgV] [-?EgVNkP] [-?|--help] [--usage]
[-R|--n...