in reply to trouble with Win32::NetResource
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:
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;
On the other hand, you have an extra semi-colon in the line:
That should read:use Win32::NetResource; qw(:DEFAULT GetSharedResources GetError);
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.use Win32::NetResource qw(:DEFAULT GetSharedResources GetError);
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;
|
---|
In Section
Seekers of Perl Wisdom