Same code works for me with this version
:
ppm> query AdminMisc
Querying target 1 (ActivePerl 5.8.2.808)
1. Win32-AdminMisc [0.2000.07.08] The Win32::AdminMisc extension for Win32 X86
ppm>
Querying target 1 (ActivePerl 5.8.2.808)
1. Win32-AdminMisc [0.2000.07.08] The Win32::AdminMisc extension for Win32 X86
ppm>
Yves
De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] De la part de Christopher Rosen
Envoy� : mardi 7 juin 2005 16:41
� : [email protected]; [email protected]
Objet : Win32::AdminMisc::GetGroups returns nothing
Trying to get all groups from a particular machine, but this returns nothing and will not even hit the 'else' portion. Seems to abort the script.
if( Win32::AdminMisc::GetGroups( "server", GROUP_TYPE_ALL, [EMAIL PROTECTED] ) ) {
print "The groups are:\n";
map { print "\t$_\n";} @list;
} else {
print "no\n";
}
Thanks.
_______________________________________________ Perl-Win32-Admin mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
