möchte in der Registry was ändern, ohne einen Abbruch zu riskieren.
Will daher erst feststellen, ob Schreibrechte auf einen key bestehen.
Das geht bestimmt mit VBA, nur wie?
Grüße Guido
Sub Registry_Test()
Const KEY_SET_VALUE = &H2
Const HKEY_LOCAL_MACHINE = &H80000002
Const STRPC As String = "."
Const STRKEY As String = "SYSTEM\CurrentControlSet"
Dim objReg As Object, bolOK As Boolean
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
STRPC & "\root\default:StdRegProv")
objReg.CheckAccess HKEY_LOCAL_MACHINE, STRKEY, KEY_SET_VALUE, bolOK
If bolOK Then
MsgBox "Schreibrecht besteht!"
Else
MsgBox "Schreibrecht besteht nicht!"
End If
End Sub