[2000] automatiser la creation d'une sources de données ODBC

Version imprimable

30/03/2006, 15h28
le y@m's

[2000] automatiser la creation d'une sources de données ODBC

Salut à tous,

Je dois ajouter des sources de données ODBC sur plusieurs postes d'un réseau et j'aimerais automatiser tout ça. En effet, pour ajouter une source de données ODBC il faut aller dans le panneau de config -> outils d'administration -> Sources de données (ODBC), puis ajouter une source en spécifiant le nom, la description, l'utilisateur et le serveur.
Ceci devant être fait sur un certain nombre de poste et etant donné que seul l'utilisateur change (en fait c'est celui du poste), je voudrais savoir s'il est possible d'automatiser un peu tout ça (éventuellement en faisant un petit programme (pas trop compliquer) pour le distribuer via un msi).

Merci d'avance.

Salut,
une solution à base de script mais le déploiement ne seras peut être pas aisé. A l'origine il s'agit d'automatisation sur des serveurs Citrix il faut un peu l'adapter.
J'utilise des fichiers .inf :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
echo off
 rem mkODBC.CMD
 rem Insertion/ création des entrées du fichier ODBC.INI

set InfName=sde-odbc.inf
set PATHInfName=\\Pruneau\D$\Livraison\SDE

del create.log /Q /F

echo ; File created with %0>%infname%
echo.>>%infname%
echo &#91;Version&#93;>>%infname%
echo Signature = "$Windows NT$">>%infname%
echo.
echo &#91;DefaultInstall&#93;>>%infname%
echo UpdateInis = UpdateInis>>%infname%
echo.>>%infname%
echo &#91;UpdateInis&#93;>>%infname%

for  /f "Skip=1 tokens=1,2,3,4 delims=;" %%I in &#40;newodbc.txt&#41; do call _inf.cmd %%I %%J %%K %%L 

pause
 rem exécute le fichier généré
 rem renseigne la base de registre et le fichier h&#58;\wtsrv\odbc.ini
Change User /install
 rundll32 setupapi,InstallHinfSection DefaultInstall 128 %pathInfName%\%InfName%
Change User /Execute

 rem supprime les variables utilisées pour ce script
set InfName=
set BaseName=
set Schema=
SET BaseType=
Set SDEUserName=
Set SchemaName=
set DLLPath=

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
echo off
 rem script appelé par MkOdbc.cmd
 rem Génére un fichier .INF pour les entrées du fichier ODBC.INI

set BaseName=%1
set Schema=%2
SET BaseType=%3
Set SDEUserName=%4

Set SchemaName=%BaseName%_%Schema%

set  DLLPath=K&#58;\tools\orawin\ODBC\SQORA73N.DLL


echo "h&#58;\Wtsrv\odbc.ini","ODBC Data Sources",,"%SchemaName%=%baseType%">>%infname%

echo "h&#58;\Wtsrv\odbc.ini","%SchemaName%",,"Driver=%DLLPath%">>%infname%

echo "h&#58;\Wtsrv\odbc.ini","%SchemaName%",,"Server=%BaseName%">>%infname%

echo "h&#58;\Wtsrv\odbc.ini","%SchemaName%",,"UserId=%SDEUserName%">>%infname%

echo "h&#58;\Wtsrv\odbc.ini","%SchemaName%",,"AsyncSupport=Disabled">>%infname%

Echo create Data Sources &#58; %SchemaName%
echo.
Echo create Data Sources &#58; %SchemaName% >>create.log
echo.>>create.log

newodbc.txt

Code:

1
2
3
4
;nom de base;nom de schema;type de database;nom utilisateur
baserjmd;SDE;Oracle73;sasde
...

tu peux aussi utiliser des fichiers de registry, pour des DSN user :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
&#91;HKEY_CURRENT_USER\Software\ODBC&#93;

&#91;HKEY_CURRENT_USER\Software\ODBC\ODBC.INI&#93;
&#91;HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\XXXXCITRIX2&#93;
"Driver"="H&#58;\\WTSRV\\system32\\SYSYBNT.DLL"
"Description"="Homologation XXXX Asie/Paris"
"ServerName"="XXXXX"
"Servers"=""
"Database"="XXXXCITRIX2"
"Databases"=""
"LogonID"="XXUSER"
"InterfacesFile"=""
"Charset"=""
"WorkStationID"=""
"Language"=""
"ApplicationName"=""
"OptimizePrepare"="2"
"ArraySize"="50"
"SelectMethod"="1"
"PacketSize"="0"
"CursorCacheSize"="1"
"PasswordEncryption"="0"
"ApplicationUsingThreads"="1"
"EnableQuotedIdentifiers"="0"
"SecurityServiceProvider"=""
"DirectoryServiceProvider"=""
"InitializationString"=""

01/04/2006, 14h35
Laurent Dardenne

Une autre approche :
http://thierry_aim.developpez.com/adoperso/#LI.3.B
01/04/2006, 16h59
le y@m's

Merci, je regarderai ça lundi au boulot et je te tiens au courant :wink:
01/04/2006, 17h22
Aurelien.Regat-Barrel

Autre exemple par le code:
http://www.developpez.net/forums/vie...375407#2375407
03/04/2006, 09h21
le y@m's
Salut, tout d'abord merci beaucoup pour ton aide et ces solutions variées :wink:
Je vais d'abord voir la solution avec les scripts. J'ai donc regardé de prés le code que tu m'as donné et j'ai deux questions.

1° Qu'est-ce que la commande "Change" ?
Code:

1 2 3 Change User /install ... Change User /Execute
Mon système me dit qu'il connaît pas.

2° Il faut donc renseigner :

Code:

;nom de base;nom de schema;type de database;nom utilisateur

Mais à quoi correspondent-ils par rapport aux champs que l'on entre quand on fait la manip manuellement ("Nom de la source de données", "description", "Nom d'utilisateur", "Serveur") ? Pour le nom d'utilisateur ça va :D et pour le type je pense que dans mon cas il s'agit de "Oracle92" mais pour les autres je suis pas sûr.

Merci encore.
03/04/2006, 17h50
Laurent Dardenne

Citation:

Envoyé par le y@m's

1° Qu'est-ce que la commande "Change" ?[code]

Sous Windows TSE cela indique au systéme de prendre en compte les modifications effectuées sur le système lors d'une d'installation, enfin si je me souviens bien. Donc tu peux les retirer.

Citation:

Envoyé par le y@m's

pour le type je pense que dans mon cas il s'agit de "Oracle92" mais pour les autres je suis pas sûr.

et ceci est-il plus parlant ?

Citation:

baserdjd;SDE;Oracle73;sasde

Cela date de 4-5 ans donc je ne me souviens plus trop mais ça tournais en prod pour des utilisateurs Front et Back Office.

Bon je me suis finalement rabattu vers la solution C++, et après moult péripéties, ça marche nickel :D

Voici mon code (très largement inspiré de celui d'Aurelien.Regat-Barrel :wink:)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#ifndef H_ORAWRAPPER
#define H_ORAWRAPPER

#include <string>

class OraWrapper
&#123;
public&#58;


   /// crée une source ODBC avec authentification faite par Oracle
   static bool CreateDSN&#40;
      const std&#58;&#58;string SourceName,      /// nom de la source ODBC
      const std&#58;&#58;string SourceDescr,   /// description
      const std&#58;&#58;string Server,         /// nom du serveur
      const std&#58;&#58;string User            /// utilisateur
      &#41;;


   /// supprime source ODBC dont le nom est donné
   static bool RemoveDSN&#40;
      const std&#58;&#58;string SourceName      /// nom de la source ODBC
      &#41;;

   /// teste si la source donnée est déjà créée
   static bool IsExistingDSN&#40;
      const std&#58;&#58;string SourceName      /// nom de la source ODBC
      &#41;;

   /// en cas d'erreur, cette fonction renvoie un message explicatif
   static std&#58;&#58;string GetLastErrorMsg&#40;&#41;;
&#125;;

#endif

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
define WIN32_LEAN_AND_MEAN
#include <string.h>
#include <windows.h>
#include <odbcinst.h>
#include "orawrapper.h"



/// crée une source ODBC avec authentification faite par Oracle
bool OraWrapper&#58;&#58;CreateDSN&#40;
   const std&#58;&#58;string SourceName,      /// nom de la source ODBC
   const std&#58;&#58;string SourceDescr,   /// description
   const std&#58;&#58;string Server,         /// nom du serveur
   const std&#58;&#58;string User       /// utilisateur
   &#41;
&#123;
   std&#58;&#58;string odbc_cfg_params;
   odbc_cfg_params += "DSN=";
   odbc_cfg_params += SourceName;
   odbc_cfg_params += '\0';

   odbc_cfg_params += "Description=";
   odbc_cfg_params += SourceDescr;
   odbc_cfg_params += '\0';

   odbc_cfg_params += "Server=";
   odbc_cfg_params += Server;
   odbc_cfg_params += '\0';

   odbc_cfg_params += "UID=";
   odbc_cfg_params += User;
   odbc_cfg_params += '\0';

   BOOL ret = SQLConfigDataSource&#40;
      NULL,
      ODBC_ADD_DSN,
      "Microsoft ODBC for Oracle",
      odbc_cfg_params.c_str&#40;&#41;&#41;;
   return ret == TRUE;
&#125;


/// supprime source ODBC dont le nom est donné
bool OraWrapper&#58;&#58;RemoveDSN&#40;
   const std&#58;&#58;string SourceName      /// nom de la source ODBC
   &#41;
&#123;
   std&#58;&#58;string odbc_cfg_params;
   odbc_cfg_params += "DSN=";
   odbc_cfg_params += SourceName;
   odbc_cfg_params += '\0';

    BOOL ret = SQLConfigDataSource&#40;
      NULL,
      ODBC_REMOVE_DSN,
      "Microsoft ODBC for Oracle",
      odbc_cfg_params.c_str&#40;&#41; &#41;;

   return ret == TRUE;
&#125;

/// teste si la source donnée est déjà créée
bool OraWrapper&#58;&#58;IsExistingDSN&#40;
   const std&#58;&#58;string SourceName      /// nom de la source ODBC
   &#41;
&#123;
   // on teste l'existence / l'accès de la clé dans la BDR
   // à HKCU\Software\ODBC\ODBC.INI\<source_name>

   std&#58;&#58;string hkey_path =
      "Software\\ODBC\\ODBC.INI\\";
   hkey_path += SourceName;

   HKEY hKey;
   if &#40; RegOpenKeyEx&#40;
      HKEY_CURRENT_USER,
      hkey_path.c_str&#40;&#41;,
      0,
      KEY_READ,
      &hKey &#41; == ERROR_SUCCESS &#41;
   &#123;
      RegCloseKey&#40; hKey &#41;;
      return true;
   &#125;
   return false;
&#125;

/// en cas d'erreur, cette fonction renvoie un message explicatif
std&#58;&#58;string OraWrapper&#58;&#58;GetLastErrorMsg&#40;&#41;
&#123;
   DWORD ErrorCode;
   const int ErrorMsgMaxSize = 1000;
   char ErrorMsg&#91; ErrorMsgMaxSize &#93;;
   WORD ErrorMsgSize;

#ifdef SQLInstallerError // UNICODE...
#undef SQLInstallerError
#endif
   if &#40; SQLInstallerError&#40;
      1,
      &ErrorCode,
      ErrorMsg,
      ErrorMsgMaxSize,
      &ErrorMsgSize &#41; == SQL_SUCCESS &#41;
   &#123;
      return ErrorMsg;
   &#125;
   return "<Erreur inconnue>";
&#125;

ça doit faire deux ans que j'ai plus fait de c++ donc il y a surement des remarques à faire (n'hésitez pas :wink:).

Encore http://yelims5.free.fr/TopOuNul/Super19.gif beaucoup à vous deux pour votre aide.