That looks like the example from the documenation, so there shouldn't be any problems with the code.

On the other hand, you have an extra semi-colon in the line:

use Win32::NetResource; qw(:DEFAULT GetSharedResources GetError);
[download]

That should read:

use Win32::NetResource qw(:DEFAULT GetSharedResources GetError);
[download]

I don't think that is your problem though. I think you should try and reinstall Win32::NetResource - but because it is part of libwin32 and installed by default in ActivePerl, ActiveState may not provide a PPM. So if you can't upgrade (ppm verify --upgrade libwin32/Win32-NetResource), then you might want to try reinstalling perl.

I can't test the code at the moment - no Win32 at home. Good luck

And I don't think "net view" is the answer - the net command is nasty and a lot more work than getting Win32::NetResource working. And as already mentioned, Win32::Lanman is a nice alternative.

Simon Flack ($code or die)
$,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$,
=~y'_"' ';eval"die";print $_,lc substr$@,0,3;