Get remote PC windows shares

[MoshiachNow]

HI,

I use Win32::Lanman for this goal fine on XP,however same perl script
finds no remote shares if run on W2K or W2003.

Is there any other method of getting the remote shares ?
Thanks

Code:

if( Win32::Lanman::NetShareEnum( $Machine, \@List ) ) {
foreach my $Share ( @List ) {
my $SHARE = $Share->{netname};
if ($SHARE !~ /.*\$/) {
push(@SHARES,$SHARE) if ($SHARE ne "");
}
}

 

[ikeon]

HI,

I use Win32::Lanman for this goal fine on XP,however same perl script
finds no remote shares if run on W2K or W2003.

Is there any other method of getting the remote shares ?
Thanks

Code:

if( Win32::Lanman::NetShareEnum( $Machine, \@List ) ) {
foreach my $Share ( @List ) {
my $SHARE = $Share->{netname};
if ($SHARE !~ /.*\$/) {
push(@SHARES,$SHARE) if ($SHARE ne "");
}
}

You can try Filesys::SmbClientParser.
http://search.cpan.org/~alian/Filesys-SmbClientParser-2.7/SmbClientParser.pm

 

[MoshiachNow]

thanks