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 |
Partager