Using ODBC driver in VBScript to connect to Oracle DB

Dim strCon
strCon = “Driver={Microsoft ODBC for Oracle}; ” & _
“CONNECTSTRING=(DESCRIPTION=” & _
“(ADDRESS=(PROTOCOL=TCP)” & _
“(HOST=Server_Name)(PORT=1521))” & _
“(CONNECT_DATA=(SERVICE_NAME=DB_Name))); uid=system;pwd=system;”

Dim oCon: Set oCon = WScript.CreateObject(”ADODB.Connection”)
Dim oRs: Set oRs = WScript.CreateObject(”ADODB.Recordset”)
oCon.Open strCon

Set oRs = oCon.Execute(”SELECT name from v$database”)
While Not oRs.EOF
WScript.Echo oRs.Fields(0).Value
oRs.MoveNext
WendoCon.Close
Set oRs = Nothing
Set oCon = Nothing
Ref: http://www.codeproject.com/vbscript/connection_string.asp?print=true