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