#!/usr/bin/perl -w
use strict;
use Win32::NetAdmin;

my @userArry= ();
Win32::NetAdmin->GroupGetMembers("mna.corp.mosaicco.com", "Web Proxy Users", @userArry);
print "Members of the Web Proxy Users Group are:\n";
for(my $i=0; $i<@userArry; $i++) {
    print $userArry[$i];
    print "\n";
}
print "-------EOF-----\n";