Discussion :

[manudja]

Bonsoir à tous, je voudrais écrire un script qui me permet de configurer automatiquement un ALIAS (source ODBC pour un client) au srveur SQL Serveur 2000.
En fait la m'thode classique est la suivante:
Ouvrir le panneau de configuration
Ouvrir Outils d'administration
Ouvrir Sources ODBC
Administrateur de source ODBC
Le Code m'interresserait aussi en VB 6
Merci

[Invité]

J'ai ce script (qui n'est pas de moi) qui m'a servi lors d'un changement de paramètre de DSN:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Option Explicit
'Constants
Const HKEY_CLASSES_ROOT     = &H80000000
Const HKEY_CURRENT_USER     = &H80000001
Const HKEY_LOCAL_MACHINE     = &H80000002
Const HKEY_USERS         = &H80000003
Const HKEY_CURRENT_CONFIG     = &H80000005
 
'Variables
On Error resume next
Dim DataSourceName
Dim pwd
Dim sComputer
Dim sPath
 
'Value assignment
 
DataSourceName = "nom_de_la_source"
DatabaseName = "nom_de_la_base"
uid="user"
pwd="password"
sPath        = "SOFTWARE\ODBC\ODBC.INI\" & DataSourceName 
sComputer    = "."
 
SetRegKeyStrValue sComputer, HKEY_LOCAL_MACHINE, sPath, "pwd",pwd
 
'set RegKey Function
 
 Function SetRegKeyStrValue (sComputer, hTree, sKey, sValueName, sValue)
Dim oRegistry
Dim lResult    
Set oRegistry    = GetObject("winmgmts:{impersonationLevel=impersonate}//" & sComputer & "/root/default:StdRegProv")
lResult = oRegistry.SetStringValue(hTree,   sKey,  sValueName,  sValue)
If (lResult = 0) And (Err.Number = 0) Then
SetRegKeyStrValue = 0
Else
SetRegKeyStrValue = 1
End If
Set oRegistry = Nothing
End Function