VBScript not working in OBI11g iBots in Win 2008 Server r2 - 64bits

Question

Hi,
we are facing issues whilw running vbscript from OBI11g 64 bit (11.1.1.5.0 (Build 110427.0752 64-bit) in Win2008 64bit server.
its running fine in win2003 32bit Server.
The VBScript works as follows...
1. Connects to Oracle DB (Oracle 11g 64 bit driver)
2. Gets a max(Date) from a Table
3 Creates a folder with that max(date) on shared drive.
The script is working fine when running standalone - by double-clicking the .vbs file.
But not working from the iBot.
its thowing the below error:
*[nQSError: 66013] [Line:18 Column:1]*
*[nQSError: 66016] Unknown error code '0x8007007E'.*
Line 18 -> Set adoConnection = CreateObject("ADODB.Connection")
Its failing in "CreateObject" line.
But everything works fine in win2003(32 bit)//OBI11g(32 bit)//Oracle 10g(32bit)
we think, its a 32/64 bit issues from the OBI side... but couldn't figure out the solution.
Please let me know if u need any more info.........
waiting for your reply......

Answer 1

'* Create objects to connect Database
Option Explicit
Dim adoConnection, adoRecordset
Dim myDateString,strCon, strSQL
Dim objFSO, objFolder, strDirectory,objFolderName
Dim objTargetFolder
Dim objSourceDirectory,objTargetDirectory,strDirectoryFolder
DIm strzip,wshell,strdel
'* Define the TNS Entry
strCon = "Driver={Oracle in OraClient11g_home1};Dbq=ORADB;uid=XXXXXX;pwd=XXXXXX;"
'* Define SQL Statement
strSQL = "select to_char(max(A.DATE_ID),'DD-MON-YYYY') as CDT from daily_load_table a"
'* Open Connection
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.ConnectionString = strCon
adoConnection.Open
Set adoRecordset = CreateObject("ADODB.Recordset")
Set adoRecordset.ActiveConnection = adoConnection
set wshell = CreateObject("WScript.Shell")
adoRecordset.Source = strSQL
adoRecordset.Open
myDateString = adoRecordset.Fields("CDT").Value
adoRecordset.Close
adoConnection.Close
Set objFSO = CreateObject("Scripting.FileSystemObject")
strDirectory = "D:\Scripts\tmp\"
strDirectoryFolder= "D:\Scripts\tmp"
objFolderName=strDirectory+myDateString
Set objFolder = objFSO.CreateFolder(objFolderName)