regread bei schluesseln

[scratch]

Hallo erstmal,

ich moechte regread benutzen um den namen eines unterschluessels zu lesen.
ich kann problemlos werte lesen und laut docu sollte das mit schluesselnamen
genauso funktionieren, ich krieg allerdings immer die meldung, dass der
schluessel nicht zum lesen geöffnet werden kann. kennt sich da vielleicht
jemand aus was ich falsch mach?

[GBorn]

Bitte benutze Deinen Real-Namen hier in dieser Newsgroup - Aliase sind nicht
so gern gesehen.

Bin mir nicht so sicher, ob ich Dich richtig verstanden habe. Wenn Du den
Namen eines Schlüssels per RegRead-Methode zurücklesen willst, musst Du den
Namen eines Schlüssels als Parameter angeben. Also, was bringt Dir dann die
Anwendung der RegRead-Methode dann noch?

Es gibt zwei Fälle, wo das Lesen eines Schlüssels Sinn macht: a) man möchte
den Standardwert eines Schlüssel lesen, b) man möchte verifizieren, ob ein
Schlüssel existiert.

Ich gehe mal davon aus, dass Du einfach den abschließenden Slash beim
Schlüsselnamen vergessen hast. Dann versucht die RegRead-Methode einen Wert
zu lesen, der natürlich nicht existiert. Hier ein Snippet aus "Inside
Windows Script Host".

'************************************************
' File: ReadKey.vbs (WSH-Beispiel in VBScript)
' Autor: (c) G. Born www.borncity.de
'
' Zweck: Das Skript demonstriert den Zugriff auf
' die Windows-Registrierung in VBscript. Dabei wird
' die Funktion KeyExist zur Prüfung, ob ein Schlüssel
' oder Wert vorhanden ist, benutzt.
'************************************************
Option Explicit

Dim key1
Dim WSHShell

' Hole WSHShell Objekt für Registrierungs-Methoden.
Set WSHShell = WScript.CreateObject("WScript.Shell")

' Erlaube dem Benutzer einen Schlüssel einzugeben
key1 = InputBox ("Schlüssel (z.B. HKCR\.bmp\) eingeben",
"Schlüssel","HKCR\")
If KeyExists (key1) = True Then
MsgBox "Schlüssel: " + key1 + " Wert: " + WSHShell.RegRead(key1)
Else
MsgBox "Schlüssel: " + key1 + " existiert nicht"
End if

' Hilfsfunktion: testet, ob der Schlüssel vorhanden ist
Function KeyExists (key)
Dim key2
On Error Resume Next
key2 = WSHShell.RegRead (key)
If err <> 0 Then
KeyExists = False
Else
KeyExists = True
End if
End Function
'*** Ende

G. Born

--
______________________________________
Check out the WSH Bazaar at www.borncity.de

"scratch" <o.sc...@t-online.de> schrieb im Newsbeitrag
news:uwf5o6znAHA.1740@tkmsftngp05...