VBS不能连Oracle数据库，请高手帮忙，谢谢

这个VBS程序从oracle数据表里找到到期的人员，然后给他们发信。以前在Windows2003 server上可以运行，但是挪到Windows2008 server上，不能运行，连不了oracle数据库。现在的Windows2008 server支持32位和64位。是用32位ODBC配置的DSN。还有在ASP文件里用相同的连接方式，可以访问数据库。请教高手们如何修改。非常感谢！Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
objConnection.Open "DSN=TEST;uid=test;pwd=test"
objRecordset.CursorLocation = adUseClient
objRecordset.Open "SELECT email_id||'@test.com' email_id,enroll_start_date,enroll_end_date FROM TEP_EE WHERE TO_CHAR(enroll_start_date,'YYYY-MM-DD') = TO_CHAR(SYSDATE,'YYYY-MM-DD')", objConnection, _
adOpenStatic, adLockOptimistic
'strSearchCriteria = "ComputerName = 'WebServer'"
'objRecordSet.Find strSearchCriteriaDo Until objRecordset.EOF
 to_id = objRecordset("email_id") & ";"   
 start_date = objRecordset("enroll_start_date")
 end_date = objRecordset("enroll_end_date")
 Set objEmail = CreateObject("CDO.Message")
 objEmail.From = "[email protected]"
 objEmail.To = to_id
 objEmail.Subject = "TEP Enrollment Is Open For You"
 objEmail.Textbody = "Tax Effective Program enrollment window is now open for you from " & start_date & " to " & end_date & ". Please log on the application at http://test.asp to complete your enrollment. You can find the communication package and user training material from the ‘Useful Links’ in the application."
'msgbox objEmail.Textbody
 objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"remotesmtp.freescale.net"
objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
objRecordset.movenext
LoopobjRecordset.Close
objConnection.Close