Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: Network Neighborhood and LWP::UserAgent list directory

by joefission (Monk)
on Aug 31, 2001 at 08:29 UTC ( #109291=note: print w/replies, xml ) Need Help??

in reply to Network Neighborhood and LWP::UserAgent list directory

I agree with $code or die, use the Win32::NetResource module. It should work with or without ADSI.

Example copied from the Win32::NetResource doc:

# This example displays all the share points in the entire # visible part of the network. # use strict; use Win32::NetResource qw(:DEFAULT GetSharedResources GetError); my $resources = []; unless(GetSharedResources($resources, RESOURCETYPE_ANY)) { my $err = undef; GetError($err); warn Win32::FormatMessage($err); } foreach my $href (@$resources) { next if ($$href{DisplayType} != RESOURCEDISPLAYTYPE_SHARE); print "-----\n"; foreach( keys %$href){ print "$_: $href->{$_}\n"; } }

Replies are listed 'Best First'.
Re: Re: Network Neighborhood and LWP::UserAgent list directory
by rrwo (Friar) on Aug 31, 2001 at 08:50 UTC

    I've had problems using Win32::NetResource with ActivePerl 5.6.1. Using the module gives compilation errors.

    (To be honest I've never bothered filing a bug report or looking for an upgraded module. I assume there's a fix.)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://109291]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2020-06-05 20:01 GMT
Find Nodes?
    Voting Booth?
    Do you really want to know if there is extraterrestrial life?

    Results (40 votes). Check out past polls.