'Set this to a file path to your SQL script.
Const SCRIPT_FILE = "G:\temp\sqlscript.sql"
'This is your connection string - No you cannot get this from the IMan database.
'See www.connectionstrings.com for more info.
Const DB_CONNECTION = "Driver={SQL Server Native Client 11.0};Server=SERVER\INSTANCE;Database=Database;Uid=Usr;Pwd=Password;"

Dim con
Dim cmd
Dim fso
Dim ts
Dim sScript

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(SCRIPT_FILE, ForReading, False)
sScript = ts.ReadAll
ts.Close

Set con = CreateObject("ADODB.Connection")
con.Open DB_CONNECTION

Set cmd = New Command
cmd.CommandText = sScript
cmd.ActiveConnection = con
cmd.Execute
Set cmd = Nothing
con.Close