#!/usr/bin/perl -w

use strict;
use Win32::OLE qw(in);

my $server = "XXXXXX";
my $domain = Win32::OLE->GetObject("WinNT://$server");
$domain->{Filter} = ["group"];

foreach my $group (in($domain)) {
    print "$group->{Name}\n";
}