Conectarse a SQLServer desde vbscript

Una forma sencilla de crear el string de conexión es utilizando este tip: http://expressraider.blogspot.com/2009/12/crear-conexion-dsnless.html

Set conn = CreateObject("ADODB.Connection")
wscript.timeout = 0
conn.open "Provider=SQLNCLI.1;Persist Security Info=False;User ID=usr1;Password=pwd1;Initial Catalog=nombreBase;Data Source=nombreServidor\nombreInstancia"


Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = conn
objCommand.CommandTimeout = 120000

objCommand.CommandText = "SELECT * FROM tabla"

Set rs = CreateObject("ADODB.recordset")
Set rs = objCommand.Execute()