#!/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";
}