Select Code to Download

@global_groups = @{&GetGroups(GROUP_TYPE_GLOBAL)};    
map {$tk{group_list}->insert('end', 
...
-text=> "$_", 
-image=> $im{grp})} 
@global_groups;

sub GetGroups
{
...
    my @groups;
    return \ @groups if (Win32::AdminMisc::GetGroups('',$type, \ @grou
+ps));
}

@global_groups = @{&GetGroups( $dr{server}, GROUP_TYPE_GLOBAL)};

sub GetGroups
{
...
    my @groups;
    return \ @groups if (Win32::AdminMisc::GetGroups(‘’,$type, \ @grou
+ps));
}

equire 5.006;

...
    my @groups;
    return \ @groups if (Win32::AdminMisc::GetGroups('', $type, \ @gro
+ups));
}