'******************************************************************************
'*
'* 	16.07.2009 - Jeremy Knight - EVWatchFileCounts.v1.2.vbs.
'*
'******************************************************************************
'* Setup Environment.
Dim Output
Dim Server

strDatabaseServer = "Your_DB_Server"
strDatabaseNames = "EV_Database_1,EV_Database_2,EV_Database_5"

Output = "EV Server   - DB Server - DB Name       - Count" & VBcrlf & _
"---------------------------------------------" & VBcrlf
'******************************************************************************
'* Run SQL queries.
DatabaseNamesArray = Split(strDatabaseNames,",")
For each strDatabaseName in DatabaseNamesArray
	connection = "Driver={SQL Server};Server=" & strDatabaseServer & ";Database=" & strDatabaseName & ";Trusted_Connection=yes;" 

	'* Open database connection
	Set myconn = CreateObject("adodb.connection")
	myconn.open (connection)

	If cstr(err.number) <> 0 Then
		wscript.echo (" - Error creating connection to " _
	   & "database server " & strDatabaseServer & " / " & strDatabaseName & ".  Check your connection string " _
	   & "or database server name/IP and try again.")
	   wscript.quit
	End if
		
	On Error Goto 0
		
	Set result = CreateObject("adodb.recordset")
	If err.number <> 0 then msgbox err.description

	'* Execute the query
	Set result = myconn.execute("select count(*) AS Count from watchfile")
	If err.number <> 0 then msgbox err.description

	GetEVServerName()
	While Server = ""
		GetEVServerName()
	Wend
	
	While not result.EOF
		Output = Output & Server & " - " & strDatabaseServer & " - " & _
			strDatabaseName & " - " & (result("Count")) & vbcrlf
		result.movenext()
	Wend
Next
'******************************************************************************
wscript.echo Output
wscript.quit
'******************************************************************************
Function GetEVServerName
	select case strDatabaseName
		case "EV_Database_1"
			Server = "EV_Server_1"
		case "EV_Database_2"
			Server = "EV_Server_2"
		case "EV_Database_3"
			Server = "EV_Server_3"
		case else
			Server = "Error"
	end select
End Function
'******************************************************************************