- or download this
-----------------
unless (Win32::Lanman::NetLocalGroupEnum('', \@arrayOfHashes))
...
throw Error::Simple($error);
}
-----------------
- or download this
-----------------
package getGroups;
...
}
1;
-----------------
- or download this
-----------------
#!perl
...
use Data::Dumper;
print "GROUPS: " . Dumper(@results) . "\n";
-----------------