VBScript OLE DB Oracle Connect

vbscriptOracle

On error resume next
Dim con,strCon,rs
strCon = "Provider=OraOLEDB.Oracle;Data Source=XXXXX;User ID=xxx;Password=xxxxx;"

Set con = CreateObject("ADODB.Connection")
con.Open strCon
    
If Err.Number <> 0 Then
	WScript.Echo("接続失敗！！")
Else
	WScript.Echo("接続成功！！")
	set rs = con.Execute("SELECT TO_CHAR(SYSDATE,'YYYY/MM/DD') FROM DUAL")
	
	'SQLの実行を確認	
	if Err.number = 0 then
		WScript.Echo("SQLの実行に成功しました。今日は " & rs(0) & " です")
	end if

	'レコードセットの取得を確認
	set rs = con.Execute("SELECT 'A' AS NAME FROM dual UNION ALL SELECT 'B' AS NAME FROM dual ")

	if Err.number = 0 then
		Dim index
		index = 0
		do until rs.eof=true
			'列名を使用したアクセスが可能(rs(0)も可)
			WScript.Echo( index & ":" & rs("NAME") ) 
			rs.MoveNext 'カーソルを進める
			index = index + 1
		loop
	else
		WScript.Echo( "エラーが発生しました！:" & Err.Description ) 
	end if

End If