Registry Werte auslesen (Windows Scriptin Host) Fehlerbehandlung

10/10/2008 - 10:24 von josef syrovatka | Report spam
Hallo,

ich lese mit dem Windows Scriptin Host Werte aus der Registry aus.
Dies klappt gut sofern der Schlüssel in der Registry vorhanden ist.

Ich verwende vier unterschiedliche Computer (Win XP/Vista, Acc
2002/2003/2007).
Fehlt nun ein Schlüssel nicht in der Registry vorhanden ist, entsteht ein
Laufzeitfehler,
der aber mit On Error nicht abgefangen wird.

Wie kann ich diesen Laufzeitfehler abfangen?


Der Code sieht etwa so aus:

Checking if a Registry key exists:

'returns True if the registry key i_RegKey was found
'and False if not
Function RegKeyExists(i_RegKey As String) As Boolean
Dim myWS As Object

On Error GoTo ErrorHandler
'access Windows scripting
Set myWS = CreateObject("WScript.Shell")
'try to read the registry key
myWS.RegRead i_RegKey
'key was found
RegKeyExists = True
Exit Function

ErrorHandler:
'key was not found
RegKeyExists = False
End Function
 

Lesen sie die antworten

#1 josef syrovatka
10/10/2008 - 13:32 | Warnen spam
hab den Fehler schon gefunden:.

Die Eigenschaft "Error Trapping" war auf 0 statt auf 2 eingestellt.






"josef syrovatka" schrieb im Newsbeitrag
news:d61e5$48ef1088$506c9225$
Hallo,

ich lese mit dem Windows Scriptin Host Werte aus der Registry aus.
Dies klappt gut sofern der Schlüssel in der Registry vorhanden ist.

Ich verwende vier unterschiedliche Computer (Win XP/Vista, Acc
2002/2003/2007).
Fehlt nun ein Schlüssel nicht in der Registry vorhanden ist, entsteht ein
Laufzeitfehler,
der aber mit On Error nicht abgefangen wird.

Wie kann ich diesen Laufzeitfehler abfangen?


Der Code sieht etwa so aus:

Checking if a Registry key exists:

'returns True if the registry key i_RegKey was found
'and False if not
Function RegKeyExists(i_RegKey As String) As Boolean
Dim myWS As Object

On Error GoTo ErrorHandler
'access Windows scripting
Set myWS = CreateObject("WScript.Shell")
'try to read the registry key
myWS.RegRead i_RegKey
'key was found
RegKeyExists = True
Exit Function

ErrorHandler:
'key was not found
RegKeyExists = False
End Function


Ähnliche fragen