sub GetGroups
{
	my $type = @_;
	my @groups;
	return \ @groups if (Win32::AdminMisc::GetGroups('',$type, \ @groups));
}