Steve, I converted you VB to Perl and it works... -- Simon Oliver
use strict;
use warnings;
use Win32::OLE;
my $oSQLApp = Win32::OLE->new('SQLDMO.Application');
my $oNames = $oSQLApp->ListAvailableSQLServers();
foreach my $i (1 .. $oNames->Count) {
print $oNames->Item($i), "\n";
}
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
