[AYUDA] [BATCH] Batch sencillo para comparar un valor del registro de windows

Iniciado por Davigotchi, 25 Febrero 2020, 20:05 PM

0 Miembros y 1 Visitante están viendo este tema.

Davigotchi

Buenas tardes a todos:

Quería hacer un batch sencillo en el cual se pueda comparar un valor concreto de una cadena del registro de windows... estoy mirando REG QUERY y REG COMPARE y me estoy volviendo loco :(

Quería exactamente saber el valor de este registro (Se consultarlo de esta manera):

REG QUERY "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2" /v "1004"

Y me devuelve:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2
   1004    REG_DWORD    0x3

- Es decir que el valor de "1004" es 0x3

Entonces quería hacer un batch en el cual si el valor de "1004" es diferente a "0x3" pues por ejemplo ejecutar un "REG IMPORT C:\IE11.reg" (Es decir que cuando el valor "1004" es diferente a "0x3" pues importo toda la configuración que tengo como por defecto de un archivo .REG)...

Espero haberme explicado bien.
Alguien me podría ayudar¿?

Muchisimas gracias por adelantado.

Davigotchi

Buenas tardes de nuevo:

Estoy mirando con vbscript... a ver que tal se me dá, jajaja

Creo que con el comando "RegRead"...

EdePC

Saludos,

- En Batch se acostumbra resolverse la vida usando Find para encontrar cosas:

Código (dos) [Seleccionar]
@Echo Off

Set clave="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
Set valor="1004"
( Reg Query %clave% /V %valor% 2>&1 | Find "0x3" ) >nul
If ErrorLevel 1 (
  Echo Valor no encontrado
) Else (
  Echo Valor encontrado
)

Pause


- También podrías usar For /F para filtrar el resultado de un comando y sacar tokens para subdividirlo:

Código (dos) [Seleccionar]
@Echo Off

Set clave="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
Set valor="1004"
For /F "tokens=3" %%a In ('Reg Query %clave% /V %valor% 2^>^&1') Do (
  If "%%a" == "0x3" (
    Echo Valor encontrado
  ) Else (
    Echo Valor no encontrado
  )
)

Pause

.:Xx4NG3LxX:.

"Quizá Batch no sea un lenguaje de programación, pero no obstante deja de ser útil. Asi que no anden diciendo «Que ganas de perder el tiempo»"



Davigotchi

Buenas tardes:

Muchísimas gracias. Sois unos cracks.

Tmb estuve con vbs y conseguí lo siguiente:

Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim valor
Set objshell = createobject("wscript.shell")
Valor = objshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1004")
If  valor <> 0 then
   WshShell. RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1004", 0, "REG_DWORD"
End if

Pero ahora si la clave a comparar no existe me da un error y yo querría que si el VALOR es Distinto de CERO o NO EXISTE... se ejecute... Alguna idea¿?¿?

Gracias de nuevooooo

EdePC

- Cuando ocurre un error en VBScript se actualiza el Objeto Err con unos atributos, de los cuales se puede resaltar Err.Number y Err.Description, estos muestra un número entero distintivo y un mensaje de error distintivo correspondientemente.

- Para tomar el control de errores en VBScript se hace uso de la sentencia On Error Resume Next, de tal manera que al producirse un error no se muestra dicho error, sino, se continúa con la siguiente instrucción esperando a que el programador ponga las instrucciones adecuadas para "tomar el control" en caso de dicho error. Luego se restablece el Objeto Err con Err.Clear.

Código (vb) [Seleccionar]
On Error Resume Next

Set oShell = WScript.CreateObject("WScript.Shell")
dato = oShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1004")

If Err.Number <> 0 then  'Ha ocurrido un error
  If Err.Number = -2147024894 Then
    WScript.Echo("Valor 1004 no existe")
  End If
  WScript.Quit
Else                     'Valor encontrado
  WScript.Echo("Valor 1004 existe y tiene el dato: " & dato)
End if

Davigotchi

Buenas tardes:

Muchiiiisimas gracias.

A parte de funcionar perfectamente, ya lo he adaptado  a lo que necesito...

Perfectamente explicado y entendido.

Muchas gracias de nuevo. Un crack si señor. :)