SQLString = "SELECT Users.Компьютер, Rooms.Номер, Departaments.Название " & _
            "FROM Departaments INNER JOIN " & _
"Rooms INNER JOIN Users ON Rooms.Код = Users.Комната ON Departaments.Код = Users.Отдел " & _
"WHERE Users.Компьютер='BTE-PC124'"

    app_path = "C:\TEMP\USERS.accdb"
    conn_string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app_path
    Set Conn = CreateObject("ADODB.Connection")
    Conn.Open conn_string
    Conn.Execute SQLString
    Conn.Close
    Set Conn = Nothing

strPathApp = "C:\TEMP\USERS.accdb"

Const dbUseJet=2
Set DAO = CreateObject("DAO.DbEngine.36")
DAO.DefaultType=dbUseJet

Set My_Base = Dao.OpenDatabase(strPathApp, True, False)
   For Each tb In My_Base.TableDefs
        If Left(tb.Connect, 9) = ";DATABASE" Then
             wscript.echo tb.name & ": " & Mid(tb.Connect,11)
        End If
   Next
Set db = Nothing

C:\TEMP\234\test.vbs(22, 5) ADODB.Connection: Не удается найти указанный
поставщик. Вероятно, он установлен неправильно.

C:\TEMP\234\test2.vbs(4, 1) Ошибка выполнения Microsoft VBScript: Невозможно
создание объекта контейнером ActiveX: 'DAO.DbEngine.36'

    conn_string = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & app_path
    Set Conn = CreateObject("ADODB.Connection")
    Conn.Open conn_string

C:\TEMP\234\test.vbs(23, 5) ADODB.Connection: Не удается найти указанный поставщик.
Вероятно, он установлен неправильно.

C:\TEMP\234>cscript test3.vbs
Сервер сценариев Windows (Microsoft R) версия 5.8
c Корпорация Майкрософт (Microsoft Corp.), 1996-2001. Все права защищены.

C:\TEMP\234\test3.vbs(5, 5) ADODB.Connection: Не удается найти указанный поставщ
ик. Вероятно, он установлен неправильно.


C:\TEMP\234>type test3.vbs
    SQLString = "select * from Users"
    app_path = "C:\TEMP\USERS.accdb"
    conn_string = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & app_path
    Set Conn = CreateObject("ADODB.Connection")
    Conn.Open conn_string
    Conn.Execute SQLString
    Conn.Close
    Set Conn = Nothing

C:\Windows\System32>cscript.exe C:\TEMP\234\test3.vbs
Сервер сценариев Windows (Microsoft R) версия 5.8
c Корпорация Майкрософт (Microsoft Corp.), 1996-2001. Все права защищены.

C:\TEMP\234\test3.vbs(5, 5) ADODB.Connection: Не удается найти указанный поставщ
ик. Вероятно, он установлен неправильно.


C:\Windows\SysWOW64>cscript.exe C:\TEMP\234\test3.vbs
Сервер сценариев Windows (Microsoft R) версия 5.8
c Корпорация Майкрософт (Microsoft Corp.), 1996-2001. Все права защищены.


C:\Windows\SysWOW64>