Both above answers are good. (I checked to make sure no one else posted before I hit the submit button :)

Here's another TIMTOWTDI approach to the original problem..

#!/usr/bin/perl -w

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

my ($domain, $container, $i);
$domain = 'YourDomain';

$container = Win32::OLE->GetObject("WinNT://$domain");
$container->{FILTER} = ["computer"];
foreach my $i (in $container) {
    print "$i->{NAME}\n";
}
[download]

This uses ADSI via Win32::OLE. No trailing $ for the machine account. Take a look at this and scroll down to "IADsComputer" to see what else is available for machine information. ADSI isn't the answer for everything, but it's handy for the quick things like this.

Rich