'=======================================
' version.vbs
'
' ADO, OLE DB Provider等のバージョン確認
'=======================================
Set objDBCon = CreateObject("ADODB.Connection")
'// ConnectionString のServerは使用するDBサーバー名に
'// 読み替えてください。
objDBCon.Open "Provider=SQLOLEDB;User ID=sa;" & _
"Initial Catalog=pubs;Server=pen2"
strInfo = "ADO Version: " & objDBCon.Version & vbCr & _
"DBMS Name: " & objDBCon.Properties("DBMS Name") & vbCr &
_
"DBMS Version: " & objDBCon.Properties("DBMS Version") & vbCr
& _
"OLE DB Version: " & objDBCon.Properties("OLE DB Version") &
vbCr & _
"Provider Name: " & objDBCon.Properties("Provider Name") &
vbCr & _
"Provider Version: " & objDBCon.Properties("Provider Version")
& vbCr
MsgBox strInfo
objDBCon.Close
Set objCon = Nothing