Форумы HiProg.com - MS ACCESS, VBA, VB

ник: ЕленаПетрова
Подскажите, кто смог решить проблему снижения уровня безопасности, если на комп ставить сразу бесплатный 2007 или 2010 AccessRuntime.
Когда на комп установлена полная версия акса, то использую вот этот скрипт.
Но при урезанной версии Runtime скрипт не работает.

Option Explicit On Error Resume Next Const strSecurityJet = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\SandBoxMode" DIM AccessShell, strPathToAccess, strAccessVersion, strCurrentPath, WshShell, strSecurity ' Определяем версию Access Set AccessShell = CreateObject("Access.Application") strAccessVersion = AccessShell.SysCmd(7) Select Case strAccessVersion     Case "11.0"         strSecurity = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\security\Level"     Case  "12.0"         strSecurity = "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\VBAWarnings" End Select Set WshShell = CreateObject("WScript.Shell") ' Понижаем безопасность If WshShell.RegRead(strSecurity) <> 1 Then     WshShell.RegWrite strSecurity, 1, "REG_DWORD" End If ' Определяем путь к MSACCESS.EXE strPathToAccess =  AccessShell.sysCmd(9)  & "MSACCESS.EXE " strCurrentPath = Replace(WScript.ScriptFullName, WScript.ScriptName,"") ' Запускаем приложение например через функцию GetObject ' Set AccessShell = GetObject( strCurrentPath & "db1.mdb") ' или через WshShell.Exec Set AccessShell = WshShell.Exec(strPathToAccess & """" & strCurrentPath  & "db1.mdb") ' а так запускаем, если база защищена через файл рабочих гупп - mdw ' Set AccessShell = WshShell.Exec(strPathToAccess & """" & strCurrentPath & "db1.mdb" & """" & "/WRKGRP" & """" & strCurrentPath & "\Security.mdw""")  AccessShell.visible = true WshShell.AppActivate Set AccessShell = nothing Set WshShell = Nothing Err.Clear