'=======================================
' 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