Re: Network Neighborhood and LWP::UserAgent list directory

[rchiav]

Sorry.. I originally posted the answer to the wrong question. This will do the trick for you. It uses ADSI.. but only works on NT and 2000 machines.

#!/usr/bin/perl -w

use strict;
use Win32::OLE qw(in);

my $i;
my $comp = Win32::OLE->GetObject("WinNT://computername/LanmanServer");

foreach $i (in $comp) {
    print $i->{name}, "\n";
}

Hope this helps..
Rich