Add Enterprise Manager registrations quickly

use strict;
use Getopt::Std; 
use Win32::OLE;  
use Win32::OLE::Const("Microsoft SQLDMO");

my (%args, $args, $serverfile, $groupname, $appname, $servername, $AppGroup, $cnt);
my $err = 0;
my $SQLServer = new Win32::OLE 'SQLDMO.SQLServer';
my $Application = $SQLServer->{Application};


getopts('f:', \%args);
$serverfile = $args{f};
$cnt = 0;
open SERVERFILE, $serverfile or die "Cannot open file: $serverfile\n";
while (<SERVERFILE>)
{
	print "Processing $_\n";
	s/#.*//;         # remove comments, ignore blank lines
	if (!$_) {next;}
	tr/\t /  /s;
	$cnt++;
	($groupname, $appname, $servername) = split;
	$AppGroup = new Win32::OLE 'SQLDMO.ServerGroup';
	$AppGroup = CreateGroup($groupname, $appname);
	RegisterServer($AppGroup, $servername);
	$AppGroup = undef;
	$servername = undef;
}
close SERVERFILE;
RegisterUnknown();
exit $err;


sub CreateGroup
{
	my $ServerGroup = new Win32::OLE 'SQLDMO.ServerGroup';
	$ServerGroup->{Name} = $groupname;
	$Application->ServerGroups->Add($ServerGroup);
	$ServerGroup = undef;
	$ServerGroup = $Application->ServerGroups->Item($groupname);
	
	$AppGroup->{Name} = $appname;
	$ServerGroup->ServerGroups->Add($AppGroup);
	$AppGroup = undef;	
	$AppGroup = $ServerGroup->ServerGroups->Item($appname);
	$ServerGroup = undef;
	return $AppGroup;
}

sub RegisterServer
{
	my $RegisteredServer = new Win32::OLE 'SQLDMO.RegisteredServer';
	$RegisteredServer->{Name} = $servername;
	$RegisteredServer->{UseTrustedConnection} = 1;
	$AppGroup->RegisteredServers->Add($RegisteredServer);
	$RegisteredServer = undef;
}

sub RegisterUnknown
{
	$AppGroup = new Win32::OLE 'SQLDMO.ServerGroup';
	my $undefname = "UNKNOWN";
	$AppGroup->{Name} = $undefname;
	$Application->ServerGroups->Add($AppGroup);
	$AppGroup = undef;
	$AppGroup = $Application->ServerGroups->Item($undefname);
	my $namelist = $Application->ListAvailableSQLServers();
	my $i = 2; #start at item 2 to skip over locally installed SQL Server.
	for (($i) .. ($namelist->{Count}))
	{
		$servername = $namelist->Item($i);
		RegisterServer($AppGroup, $servername);
		$i++;
	}
	$AppGroup = undef;
}