Dim WSHShell As Object 'As wshShell
Set WSHShell = CreateObject("WScript.Shell")
'Значение 2 - BDE отключен (только для Access), 0 - BDE активен (если установлен)
WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase\BDE", 2, "REG_DWORD"
'Значение может быть "OEM" - DOS или "ANSI" - Windows
WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase\DataCodePage", "OEM"
|