##at the beginning of the scripts
use Win32::TieRegistry ( Delimiter=>"/" );

#then

&create_dsn(10.0.0.55,'c:/your/path/aaa.mdb','myCustomDSN');

#here the good stuff!!


sub  create_dsn  ############################################################
{
 my $ip = shift;
 my $dbq= shift;
 my $nuovo_dsn= shift;
 my $descrizione="your description ";
 unless( $registry_remoto = $Registry->Connect( "$ip", "LMachine" )){return "Error connecting to remote registry: $^E"}
 my $odbc_ini = $registry_remoto->{"Software/ODBC/ODBC.INI"}||return "$^E";
 my $odbc_data_sources= $odbc_ini->{"ODBC Data Sources"}||return "$^E";
      #be carefull if there are no dsn on that machine then no "ODBC Data Sources" exists!! 

 foreach my $dsn(sort keys %{$odbc_data_sources})
            {
             $dsn=~s/\///;
             $dsn eq $nuovo_dsn ? return "$nuovo_dsn yet exists!! plz try other name!!\n" :next;
            }
 $odbc_data_sources->{$nuovo_dsn} = "Microsoft Access Driver (*.mdb)"||return "$^E";
 $odbc_ini->{$nuovo_dsn}={'DBQ'=>$dbq,
                         'Description'=>$descrizione,
                         'Driver'=>'C:\WINNT\System32\odbcjt32.dll',
                         'DriverID'=>['0x00000019','REG_DWORD'],
                         'FIL'=>'MS Access;',
                         'SafeTransactions'=>['0x00000000','REG_DWORD'],
                         'UID'=>'',
                         'Engines'=>{ 'Jet'=>{'ImplicitCommitSync'=>'',
                                             'MaxBufferSize'=>['0x00000800','REG_DWORD'], #(hex(800)) da 2048
                                             'PageTimeout'=>['0x00000005','REG_DWORD'],
                                             'Threads'=>['0x00000003','REG_DWORD'],
                                             'UserCommitSync'=>'yes'
                                             }
                                      }
                          }||return "$^E";
  return ("created DSN: $nuovo_dsn on $dbq");
}