Tecnología

Inicio

Cómo determinar si existe una clave del Registro en VBScript

September 4

Mirando en el registro del sistema que da una idea de la configuración crítica del sistema operativo. Estos ajustes, denominadas claves controlan la forma en que funciona en Windows. Los desarrolladores utilizan VBScript y otras herramientas para examinar y modificar las teclas. Si necesita comprobar que existe una clave específica antes de realizar una operación de registro, puede crear una función de VBScript corta que consulta el registro.

Instrucciones

1 Abrir Bloc de notas o un editor de texto y pegue el siguiente código de VBScript en un nuevo documento:

Option Explicit
keyName Dim
keyName = "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Explorer \ Fondos de \"

Si KeyFound (keyName) = entonces verdad
Wscript.echo "Clave existe"
Otra cosa Wscript.Echo "La clave no existe"
Terminara si

El "keyName" variable contiene el nombre de la clave de registro para el que es necesario buscar. Reemplazar "Nombre" con una clave de su elección. La siguiente línea de código pasa ese nombre a una función llamada "KeyFound." Esta función comprueba si existe la clave.

2 Añadir el código debajo del código que se muestra en el último paso:

función KeyFound (ByVal keyName)
keyFound = false

rightCharacter Dim
rightCharacter = derecha (keyName, 1)
si rightCharacter <> "\" Entonces keyName = keyName & "\"

On Error Resume Next
CreateObject ( "wscript.shell"). RegRead trim (keyName)

seleccione err caso
caso 0: keyFound = true
End Select

end function

Esta es la función "KeyFound". Se añade una barra al final de la clave si no existe ninguno y ejecuta el método "RegRead". El "por error" declaración permite que el programa continúe funcionando incluso si el método "RegRead" no puede localizar la clave de registro deseado. Si el método encuentra una llave, el código establece el valor de "keyFound" true.

3 Guarde el archivo con la extensión VBS. Por ejemplo, si quieres llamarlo "CheckKeys," guardar como "CheckKeys.vbs."

4 Iniciar el Explorador de Windows y busque el archivo. Haga doble clic en el archivo para ejecutar el programa. Se ejecuta y muestra el mensaje "Clave existe" si encuentra la clave o "La clave no existe" si no lo hace.

Consejos y advertencias

  • La parte esencial de este programa es la función "KeyFound". Sólo tiene que llamar desde cualquier otro programa de VBScript, y pasar a la función "KeyFound" el nombre de una tecla. La función devuelve "verdadero" o "falso", dependiendo de si existe o no la tecla.