How do I get a data source from a text file in vbscript

See more:

VBScript

SQL

Visual-Studio

Hello-

I have dozens and dozens of reports (run from a vbs script) that are sent on a daily basis. These reports get their data from 5 data servers. All these data servers are the same and I usually have the reports run from one or two of them. At times a server has issues and the data is not current so I need to move the reports to a different data server. The issue is maintaining 5 sets of reports. People often make changes to one report and not the others so when we have to change data servers, we are chasing our tails. My vision is to have one set of scripts/reports housed one one separate server (of course backups are done). But instead of changing each script and report to get their data from a particular server, I want to have a single text file that says "SERVER_1". When a report is run it reads the source text file before connecting and generating a report. When a data server is having an issue, all I have to do is change the text file to "SERVER_2". I am having trouble making this work. Here is what I did.

What I have tried:

I have this in my vbscript:

set databaseIntegration = createobject("adodb.connection")
databaseIntegration.open "provider=sqloledb;data source=" & sourceServer & ";initial catalog=database;integrated security=sspi;"

Prior to the above code I put this and it did not work. The error I get for this is (

Error: [DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied.

) But when I hard code the server into that spot it works.

Dim sourceServer 
sourceServer = "C:\Users\me\Documents\"

I also tried this:

Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Users\me\Documents\server_source.txt",1)
sourceServer = objFileToRead.ReadAll()
objFileToRead.Close
Set objFileToRead = Nothing

And it still did not work. This is the error for this one. (

Login failed for user 'NT AUTHORITY\ANONYMOUS LOGON'.

)