Veteran
Beiträge: 129
![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif)
| Ich habe mich doch schon mal heute daran versucht.
Nach meinen bisherigen Recherchen ist das Schreiben in die HKLM nichts erlaubt, sofern man nicht als Benutzer "Administrator" angemeldet ist. Auslesen des Wertes ist kein Problem.
Hier das aktuelle Skript bis zu meinen Tests :
Dim WSHShell As Object
Set WSHShell = CreateObject("WScript.Shell")
'Access 2010 (64 bit)
If WSHShell.regread("HKLM\SOFTWARE\Microsoft\Office\14.0\Access Connectivity Engine\Engines\ACE\MaxLocksPerFile") Then
Debug.Print "Access 2010 a : " & WSHShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0\Access Connectivity Engine\Engines\ACE\MaxLocksPerFile")
WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Office\14.0\Access Connectivity Engine\Engines\ACE\MaxLocksPerFile", 95000, "REG_DWORD"
End If
'Access 2010 (32 bit)
If WSHShell.regread("HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\14.0\Access Connectivity Engine\Engines\ACE\MaxLocksPerFile") Then
Debug.Print "Access 2010 b : " & WSHShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Office\14.0\Access Connectivity Engine\Engines\ACE\MaxLocksPerFile")
WSHShell.RegWrite "HKLM/SOFTWARE/WOW6432Node/Microsoft/Office/14.0/Access Connectivity Engine/Engines/ACE/MaxLocksPerFile", 95000, "REG_DWORD"
End If
Ergänzung :
-------------
Kann sein, dass es als vbscript Datei mit "Ausführen als Administrator" doch geht.
Werde ich gelegentlich mal testen.
Edited by sks 18.11.18 18:54
|