Is this M$ Network Neighborhood stuff? I didn't know about this 'feature' until I read this node, but I would assume this doesn't actually involve HTTP, does it?

My guess is that since Windoze treats Network Neighborhood files/folders as local, when you type "file://..." the browser is only going to the OS ( i.e., not network activity from the browser's perspective) to ask for the file, thinking that is a local file?

If so, the reason why LWP fails to find these files is because LWP tries to talk HTTP to find the files on the peer machine, and since a regular Windoze workstation don't come with an HTTP server, the attempt fails.

I don't have ActivePerl installed on my Win2k so I can't try it, but I'd almost think that on a Network Neighborhood - equipped Win box, you can achieve the same effect by using a regular file open() ? Just a wild guess.

I am using Win2k and went to try the following...

#!d:\perl\bin\perl.exe -w
use strict;
my $dir = 'file:/IP/';

opendir (DIR, $dir) or die "cannot opendir $dir";
foreach (readdir(DIR)){
    #do something
}
[download]

This gave me the "cannot opendir"... response.

I do agree with what you are saying with your response but I don't know what to do.

LeGo

Why not just use a UNC...



#!d:\perl\bin\perl.exe -w
use strict;
my $server = "192.168.0.5";           # or something
my $dir = "\\\\$server\\c\$\\temp";   # open c:\temp on $server
opendir (DIR, $dir) or die "cannot opendir $dir";
foreach (readdir(DIR)){
    #do something
}
[download]

I am not sure if this works - I think it does - I know it works if $server is the actual Win32::NodeName(). And I know that you can type "\\ip.address\c$\temp" in the Start > Run dialogue box.

If this fails, then just share the remote path use Win32::NetResource

Of course, all this depends on you having read permissions on the remote machine.

Error: Keyboard not attached. Press F1 to continue.

I know I sound like a broken record on this, but you would be likely to get a more informative error if your error message included the contents of $! (the last error generated by the OS). This advice is straight out of perlstyle.

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";
        }
    }
[download]

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.)

#!/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";
}
[download]

LWP is the wrong approach, unless you're fetching thrings from the web (http), ftp, and the filesystem/network shares in the same application.

Also, you won't see hidden shares.

I think you need to use the Win32::NetResource to get a list of shares, and other related Win32 modules for doing things on Windows networks.

Check out David Roth's Windows NT: Win32 Perl Programming and Win32 Perl Scripting books for references and a more complete listing of how to do things with with Windows and Windows networking.