Option Explicit
Dim objConnection
Set objConnection = CreateObject("ADODB.Connection")
' Здесь DataSourceName — это имя вашего ODBC источника данных (DSN), который вы настроили в системных настройках ODBC.
' При использовании Trusted_Connection=Yes, скрипт будет подключаться к БД под текущим пользователем Windows.
objConnection.Open "DSN=DataSourceName;Trusted_Connection=Yes;"
' Проверка подключения
If objConnection.State = 1 Then
WScript.Echo "Подключение успешно выполнено!"
Else
WScript.Echo "Не удалось подключиться к источнику данных."
End If
' --- Действия с базой данных ---
' Напишите ваш SQL-запрос или логику работы с данными.
' Например:
'Dim rs
'Set rs = objConnection.Execute("SEL ECT TOP 10 * FR OM SomeTable")
'Do Until rs.EOF
' WScript.Echo rs("ColumnName")
' rs.MoveNext
'Loop
'rs.Close
'Set rs = Nothing
' Закрываем соединение
objConnection.Close
Set objConnection = Nothing