Hope this helps..#!/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"; }
In reply to Re: Network Neighborhood and LWP::UserAgent list directory
by rchiav
in thread Network Neighborhood and LWP::UserAgent list directory
by LeGo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |