Guardalo con extension VBS y ejecutalo.
Option Explicit
Dim WSHShell, n, p, errnum, itemtype
Dim OldVal, Msg, NewVal, ErrMsg, AskBox
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\In ternet Settings\"
p = p & "Zones\3\1A02"
itemtype = "REG_DWORD"
On Error Resume Next
Err.Clear
n = WSHShell.RegRead (p)
errnum = Err.Number
On Error Goto 0
if errnum <> 0 then
WSHShell.RegWrite p, 0, itemtype
End If
If n = 0 Then OldVal = "Automatico."
If n = 1 Then OldVal = "Preguntar antes."
If n = 3 Then OldVal = "Desabilitado."
Msg = "Nivel de aceptacion de Cookies es actualmente " & OldVal
GetInput()
WSHShell.RegWrite p, n, itemtype 'write the new value to Registry.
MsgBox "Nuevo nivel de aceptacion de Cookies" & NewVal
Set WSHShell = Nothing
WSH.Quit
Sub GetInput
AskBox = InputBox(ErrMsg & Msg & vbcrlf & vbcrlf & _
"Seleciona el nivel que desees" & vbcrlf & _
"Debes selecionar 1 o 2" & vbcrlf & vbcrlf & _
"1. Acepta Cookies automaticamente." & vbcrlf & _
"2. Preguntar antes de aceptar la cookie." & vbcrlf & _
"3. Nunca aceptar cookies.")
If AskBox = "" Then WSH.quit
If IsNumeric(AskBox) = False Then AskBox = 0 'non-interger input.
If AskBox < 1 Or AskBox > 3 Then
ErrMsg = "Seleccion Incorrecta -- Solo puedes introducir 1, 2, o 3 ." & vbcrlf & vbcrlf
GetInput()
End If
If AskBox = 1 Then
n = 0
NewVal = "Automatico."
ElseIf AskBox = 2 Then
n= 1
NewVal = "Preguntar antes."
ElseIf AskBox = 3 Then
n = 3
NewVal = "Desabilitado."
End If
End Sub