Foro de elhacker.net

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.

Buenas tardes de nuevo:

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

Creo que con el comando "RegRead"...

Saludos,

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

@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:

@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

El Find, siempre tan confiable...

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

- 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.

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
 

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. :)