Доступ к MDB через VBS

Question

Я пытаюсь обновить MDB, используя скрипт VBS. На одном компьютере он работает нормально (WinXP и Office 2003), а с другой (Win7 64-бит VM с Office 2010) Я получаю сообщение об ошибке «Компонент ActiveX не может создать объект:« DAO.DBEngine.36 «». Код:

Dim dbe 
Set dbe = CreateObject("DAO.DBEngine.36") 

Я попытался с DAO.DBEngine, DAO.DBEngine.120 и .140, без разницы.
Я не понимаю, где проблема. Любая подсказка?

---

Обновление: Я обнаружил, что могу заставить его работать на callink сценарий вроде этого:

c:\windows\syswow64\wscript MyScript.vbs Myargument 

Видимо назвать 32 бита Wscript вы должны вызвать его из SysWOW64, в то время как Wscript в system32 является 64-битная версия. Немного странно ...

Answer 1

Вам может понадобиться запустить скрипт с 32-разрядной версии интерпретатора скриптов:

%SystemRoot%\SysWOW64\wscript.exe C:\path\to\script.vbs 

Взятые из this answer на подобный вопрос.

Answer 2

В 64 бит OS .vbs запускается как 64-битный процесс, поэтому вам нужно перезапустить (в начале) ваш скрипт как 32-битный процесс.

'call it here 
Force32bit 

Dim dbe 
Set dbe = CreateObject("DAO.DBEngine.36") 

'just for testing: 
WScript.Echo TypeName(dbe) 'DBEngine 

'the rest of the code here... 
Set dbe = Nothing 

Sub Force32bit() 
    Dim sWinDir, sSys64, sSys32, oShell 
    Set oShell = CreateObject("WScript.Shell") 
    sWinDir = oShell.ExpandEnvironmentStrings("%WinDir%") 
    With CreateObject("Scripting.FileSystemObject") 
     sSys64 = .BuildPath(sWinDir, "SysWOW64") 
     If Not .FolderExists(sSys64) Then Exit Sub 
     sSys32 = .BuildPath(sWinDir, "System32") 
     If sSys32 = WScript.Path Then 
      oShell.CurrentDirectory = sSys64 
      oShell.Run "wscript.exe " & Chr(34) & _ 
      WScript.ScriptFullName & Chr(34), 1, False 
      WScript.Quit 
     End If 
    End With 
End Sub