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;
}