#!/usr/bin/perl -w

use strict;
use Win32::OLE;
use Win32::OLE::Enum qw(in);
my $dom;

$dom = Win32::OLE->GetObject ( "WinNT:" );

print "Domain\n\n-------------------------------------------------------------------------------\n";

foreach ( in $dom ) { print "$_->{Name}\n";}