Best advice is to run over to http://www.activestate.com and check the archives and/or sign up for Perl-Win32-Admin mail list. Scripts like what you are looking for are constantly being asked for and posted there.

Also, Dave Roth's site has gobs and gobs of info, and his books are great resources, too, as was mentioned.

Here's a little Win32::OLE snippit from somewhere:

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

IMHO, the 'net' command was a great idea implemented horribly wrong by M$ and the raw, unadulterated POWER of perl is the best way to overcome this vast deficiency!

HTH
--
idnopheq
Apply yourself to new problems without preparation, develop confidence in your ability to to meet situations as they arrise.

~ Shunryu Suzuki