---

hejsa alle!

jeg prøvet at hente en værdi fra registeringsdatabasen fra en ASP side,
men min kode fejler, og jeg begriber ikke ligefrem hvorfor:

Jeg har en rimelig simpel funktion:

Function RegKeyExists(sRegKey)
' Returns True or False based on the existence of a registry key.
Set oShell = CreateObject("WScript.Shell")
RegKeyExists = True
sRegKey = Trim (sRegKey)
If Not Right(sRegKey, 1) = "\" Then
sRegKey = sRegKey & "\"
End if
On Error Resume Next
RegReadReturn = oShell.RegRead(sRegKey)
If Err Then
Response.Write err.Description
If LCase(Left(err.description,7)) = "invalid" Then
'key not found...
RegKeyExists = False
End if
Err.clear
End if
On Error Goto 0
End Function

Kalder jeg den med :

Response.write regkeyexists("HKEY_CURRENT_USER\Software\VB and VBA Program
Settings\EGBOLIG\DATABASE\KRYPTERING")

Returnerer den : Invalid root in registry key "HKEY_CURRENT_USER\Software\VB
and VBA Program Settings\EGBOLIG\DATABASE\KRYPTERING\".False

ALTSÅ FALSE.

Jeg ved at hele denne sti eksisterer i registeringsdatabasen. Da jeg klippet
den direkte ud fra regedit!

Kalder jeg:
Response.write regkeyexists("HKEY_CURRENT_USER\Software")

returnerer den:
Unable to open registry key "HKEY_CURRENT_USER\Software\" for reading.True

MEN "TRUE "DOG!


hvad gør jeg forkert??

mvh Jan