#!/usr/bin/perl -w
use strict;

use Win32::NetAdmin qw(
    FILTER_SERVER_TRUST_ACCOUNT FILTER_WORKSTATION_TRUST_ACCOUNT );

my( $dc, @comps );
my $domain= @ARGV ? $ARGV[0] : "";
Win32::NetAdmin::GetAnyDomainController('',$domain,$dc)
    or  die "Can't find my domain controller: $^E\n";
Win32::NetAdmin::GetUsers( $dc,
    FILTER_SERVER_TRUST_ACCOUNT|FILTER_WORKSTATION_TRUST_ACCOUNT,
    \@comps )
    or  die "Can't lookup domain members: $^E\n";
s/\$$//   for  @comps;