话不多说配上部分代码

Dim objCon
Dim strConStr
Set objCon= CreateObject("ADODB.CONNECTION")
strConStr= "Data Source=AAAA;UID=BBBB;PWD=CCCC;"
objCon.Open strConStr

AAAA处是数据源名（管理工具--ODBC数据源中配置）此处需要注意安装的oracle客户端版本是32位还是64位

如果系统版本跟oracle版本一致，直接运行vbs文件没有问题，如果不一致则会报错

此时需要使用命令执行vbs 

C:\Windows\SysWOW64\cmd.exe /c XXXXX.vbs  

C:\Windows\System32\cmd.exe /c XXXXX.vbs

连接字符串也可以这样写

strConStr= "Driver=XXXXX;DBQ=AAAA;UID=BBBB;PWD=CCCC;"

Driver=XXXXX此处是ODBC数据源驱动名

 

 DBQ=AAAA这里就是配置的TNS（tnsnames.ora）