Как предложил Серапт, на последнем шаге мастера администратора источника данных ODBC есть кнопка тестирования, которая поможет вам проверить подключение к базе данных. Если вы ищете простой способ и хотите избежать прохождения всех этих шагов мастера, вы можете использовать следующий скрипт vb. Однако следует помнить, что для этого сценария необходимо настроить DSN с доверенным соединением. Также этот скрипт был протестирован только с сервером MSSQL.
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
objConnection.Open "DSN=YOUR_DSN;"
objRecordset.CursorLocation = adUseClient
objRecordset.Open "SELECT count(*) FROM YOUR_TABLE_NAME" , objConnection, _
adOpenStatic, adLockOptimistic
objRecordSet.MoveFirst
Wscript.Echo objRecordSet.RecordCount
objRecordset.Close
objConnection.Close
Пожалуйста, обратитесь к техническому сайту Microsoft для получения дополнительных примеров сценариев.