use Win32::TieRegistry

##</code><code>##

## create_dsn($dsn, $pointer, @servers)
## Creates a DSN named $dsn pointing to $pointer on servers named @servers
sub create_dsn {
	my $dsn = shift(@_);
	my $pointer = shift(@_);
	my @servers = @_;
	
	foreach my $server (@servers) {
		my $ref = $Registry->{"//$server/LMachine/Software/ODBC/ODBC.INI/"};

		if (not exists $ref->{"$dsn/server"}) {
		
			print "$server: Creating DSN $dsn, setting to $pointer... ";
			
			$ref->{"$dsn/"} = {
				'Description' => "",
				'Server' => "$pointer",
				'Database' => "$dsn",
				'Driver' => "C:\\WINNT\\System32\\SQLSRV32.dll",
				'OEMTOANSI' => "YES",
				'UseProcForPrepare' => "YES",
				'TrustedConnection' => "",
			};
			
			print " done\n";
			
			print "$server: Updating ODBC Data Sources list... ";
			
			$ref->{"ODBC Data Sources/$dsn"} = "SQL Server";
			
			print " done\n";
				
		} else {
		
			print "$server: DSN $dsn already exists!\n";
		}
				
	}
	print "\n\tRemember to edit the new DSNs with username and password!\n";
}