no funciona cookies en portatil.

[lexus]

hola atodos, tengo una intranet en mi empresa mas o menos con 10 computadores windows xp e internet information server en todos los computadores de escritorio me funciona perfecto mi intranet elaborada con asp. hasta en comptadores conectados a la red viejitos con windows 95
pero me surgio un problema inexplicable. compre un computador portatil marca del y lo conecto a la red y el programita carga perfecto pero algunas cookies como el usuario y clave no me fduncionan.. no tiene explicacion ya que en los de escritorio funciona perfecto... y probe instalando todo en el portatil y funciona bien.. solo no funciona cuando el se conecta a la intranet .. no es problema de red porqeu el programa carga perfecto solo no funcionan las cookies.

depronto no esta bien aqui el tema pero todo lo hice con asp asi que lo pregunto aqui por si depronto a aguien le ha pasado.
espero me puedan ayudar, gracioas.

[sqa212]

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

[lexus]

disculpa la pregunta, que hace este codigo?
gracias,
porfa explicame un poco que hace y para que sirve.

[sqa212]

Te dice cual es tu nivel de aceptación actual de cookies y te permite modificarlo facilmente. guardalos con extension vbs y dale doble click. Creo que es lo que buscabas.