use Win32::NetAdmin qw/LocalGroupGetMembers UserGetAttributes UserSetAttributes/;

# *****************************************************
# *** Variable definieren ***
# *****************************************************

my @sourcevob; 
my @sourcevob_ext; 
my $s_datei = 'Pfad\\sourcevobs.txt';
my $s_ext_datei = 'Pfad\\sourcevobs_ext.txt'; 

# *****************************************************
# *** Einlesen der Dateien, Array bilden ***
# *****************************************************
open (svob,"<$s_datei");
@sourcevob= <svob>;
open (svob_ext,"<$s_ext_datei");
@sourcevob_ext = <svob_ext>; 
push(@sourcevob, @sourcevob_ext);

# *****************************************************
# *** Gruppen herausfinden ***
# *****************************************************


foreach $sourcevob (@sourcevob){ 
print "$sourcevob\n";
my @line = qx "cleartool desc vob:\\$sourcevob 1>@line"; 

my @group = grep (/group/, @line);
my $line = join(" ", @group);
my $group = substr($line,10);
if (@group != ()) {print "Gruppe: $group\n";} 

#my @Members = LocalGroupGetMembers(server, $group, @Members)

}