VBS Para crear DSN de sistema

[Cuasar]

Gente Como estan?

Les comento que tengo que cambiar el OBDC de 40 equipos y para no tener que ir uno por uno se me ocurre que ´podria colgar en el logon un script que modifique el OBDC.

No es nesesario que lo modifique se hay que eliminar el existente y crear uno nuebo no seria problema.

Buscando por el foro encontre este script que crea un dsn pero de usuario. pero tiene que ser de sistema.

Código [Seleccionar] Expandir




Dim oWshShell
Const cRegKey1 = "HKCU\Software\ODBC\ODBC.INI\Pubs\"
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","Prueba01"
oWshShell.RegWrite cRegKey1 & "Database","Nueba1"


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

set oWshShell = Nothing




Otra cosa que es que este me lo crea teniendo que poner Usuario y clave de SQL y yo tendria que dejarlo con la autenticacion de Windows.

Esqpero puedan ayudarme.

Salu2

[duckseven]

esto si que es una gran ayuda amigo, queria saber como puedo agregar a este codigo usuario, contraseña y si me puedes explicar para que esto pueda recibir variables.

GRACIAS ESTO BUSQUE POR AÑOS

[seba123neo]

y esto que tiene que ver coan visual basic, deberia ir en el foro de Scripts, igualmente en visual basic 6 lo haces con apis muy facil.