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