#!/usr/bin/perl -w

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

my $i;
my $comp = Win32::OLE->GetObject("WinNT://computername/LanmanServer");

foreach $i (in $comp) {
	print $i->{name}, "\n";
}