Imprimir Página - VBS Para crear DSN de sistema

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:



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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Cuasar en 8 Noviembre 2010, 18:48 pm