Problemer med VBS og Oracle db

Jeg har lavet et ASP script som henter en række data fra en Oracle database, dette ASP script vil jeg gerne lave om til et VBS script så jeg kan afvikle det gennem min MS SQL servers job agent.

Men at få det til at virke som VBS volder mig lidt problemer. Jeg har vedlagt mit script i en simplificeret udgave. Håber der er nogen som har et forslag.


ASP script (som virker):

<%
lon_dsn        = "oDSN"
lon_user      = "test"
lon_password  = "test"
lon_tabel      = "tbltest"

lon_dbConnection = "dsn=" & lon_dsn & ";uid=" & lon_user & ";pwd=" & lon_password & ";"

Set Conn = CreateObject("ADODB.Connection")
Conn.Open lon_dbConnection

Set rs = Conn.Execute("SELECT * FROM " & lon_tabel & " WHERE afd_nr <> 30010 AND afd_nr <> 30210 AND afd_nr <> 10110 and medarb <> 898 ORDER by medarb")

  Do While Not rs.EOF

    Response.Write rs("kaldenavn") & "<br>"

  rs.MoveNext
  Loop

rs.Close
Conn.Close
%>






VBS script (som ikke virker):

lon_dsn        = "oDSN"
lon_user      = "test"
lon_password  = "test"
lon_tabel      = "tbltest"

lon_dbConnection = "dsn=" & lon_dsn & ";uid=" & lon_user & ";pwd=" & lon_password & ";"

Set Conn = CreateObject("ADODB.Connection")
Conn.Open lon_dbConnection

Set rs = Conn.Execute("SELECT * FROM " & lon_tabel & " WHERE afd_nr <> 30010 AND afd_nr <> 30210 AND afd_nr <> 10110 and medarb <> 898 ORDER by medarb")

  Do While Not rs.EOF

    Response.Write rs("kaldenavn") & "<br>"

  rs.MoveNext
  Loop

rs.Close
Conn.Close


Fejlen jeg får er:
I linie 9, Microsoft OLE DB Provider for ODBC Drivers: [Microsoft][ODBC driver for Oracle][Oracle]ORA-12505: TNS: Listener kunne ikke tolke SID givet i forbindelses-descriptor