CREAR UN ODBC A TRAVES DE UN SCRIPT VBS

Aqui os dejo como crear un odbc a traves de un script vbs.

Primero creamos un archivo TXT, lo abrimos y pegamos el siguiente codigo:



----------------------------------------------------------------------------------------

Dim oWshShell
Const cRegKey1 = "HKCU\Software\ODBC\ODBC.INI\PRUEBA\"
Const cRegKey2 = "HKCU\Software\ODBC\ODBC.INI\ODBC Data Sources\"

Set oWshShell = CreateObject ("WScript.Shell")

oWshShell.RegWrite cRegKey1 & "Driver","C:\\WINNT\\System32\\sqlsrv32.dll"
oWshShell.RegWrite cRegKey1 & "Server","NOMBRE_SERVIDOR"
oWshShell.RegWrite cRegKey1 & "Database","NOMBRE BASE DATOS"
oWshShell.RegWrite cRegKey1 & "Trusted_Connection","Yes"


oWshShell.RegWrite cRegKey2 & "PRUEBA","SQL Server"

set oWshShell = Nothing

----------------------------------------------------------------------------------------

Donde la variable "cRegKey1" contiene la ruta donde se va a grabar en el registro.
"PRUEBA" es el nombre del ODBC.
Tendreis que cambiar "NOMBRE_SERVIDOR" por el nombre de vuestro servidor, asi como el nombre de la base de datos.
"Trusted_Connection" hace que el usuario y contraseña lo coja del inicio de sesion de windows.
Este codigo es valido solamente para ODBC de tipo SQL SERVER, si tuvierais que crear otro de otro tipo solo tendreis que cambiar el valor de "Driver" por el que corresponda.