Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Rechte auf registry

Rechte auf registry
06.04.2006 21:53:59
Guido
Hallo Forum,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rechte auf registry
06.04.2006 23:10:48
K.Rola
Hallo,
hab ich das richtig verstanden, dass du nur Die Schreibrechte prüfen willst?
Der Code zum Anlegen eines keys ist also klar?
Gruß K.Rola
AW: Rechte auf registry
06.04.2006 23:19:36
Guido
Hallo K.Rola,
ja, ich brauche nur die Abfrage.
Grüße Guido
AW: Rechte auf registry
07.04.2006 16:38:28
K.Rola
Hallo,
den Schlüssel musst du anpassen:
Option Explicit

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

Gruß K.Rola
Anzeige
Danke, passt! oT
07.04.2006 19:18:48
Guido
oT

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige