como impedir el acceso al IE?

Hola
Escribe el siguiente texto en el bloc de notas y guardalo con la extension *.reg, despues clickea dos veces sobre y ya esta



Option Explicit

'Declare variables
Dim WSHShell, n, MyBox, p, p1, p2, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions\"
p1 = "HKEY_USERS\.DEFAULT\Software\Policies\Microsoft\Internet Explorer\Restrictions\"
p2 = "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Internet Explorer\Restrictions\"
p = p & "NoBrowserOptions"
p1 = p1 & "NoBrowserOptions"
p2 = p2 & "NoBrowserOptions"

itemtype = "REG_DWORD"
mustboot = "You may need to log off and back on, or restart " & vbcr & "your pc to effect the changes"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Internet Options setttings are now "
t = "Confirmation"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number

if errnum <> 0 then
'Create the registry key value for NoBrowserOptions with value 0
WSHShell.RegWrite p, 0, itemtype
WSHShell.RegWrite p1, 0, itemtype
WSHShell.RegWrite p2, 0, itemtype
End If

If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
WSHShell.RegWrite p1, n, itemtype
WSHShell.RegWrite p2, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
WSHShell.RegWrite p1, n, itemtype
WSHShell.RegWrite p1, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If


Esto lo que te hara es quitar las opciones de internet, por tanto antes configuras no marcar una conexion nunca y ademas dejas ciega la red si existiera, despues de realizar este ajuste aplicas esto al registro y dificilmente navegara por internet.
Otra opcion no esta disponible, por que si deshabilitaramos completamente IE, al tratarse del explorer interno se nos caeria el sistema.


Saludos

Antonio FD
MS Windows Embedded


"tiendademoviles.net" wrote in message news:O3g$

tengo XP Home y una cuenta de invitado y otra de administrador.
me gustaria q con la cuenta de invitado no se tenga acceso a Internet.
como puedo hacerlo?
gracias

de es manera solo podra acceder el administrador?
gracias


"Antonio" escribió en el mensaje
news:
Hola
Escribe el siguiente texto en el bloc de notas y guardalo con la extension
*.reg, despues clickea dos veces sobre y ya esta



Option Explicit

'Declare variables
Dim WSHShell, n, MyBox, p, p1, p2, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet
Explorer\Restrictions\"
p1 = "HKEY_USERS\.DEFAULT\Software\Policies\Microsoft\Internet
Explorer\Restrictions\"
p2 = "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Internet
Explorer\Restrictions\"
p = p & "NoBrowserOptions"
p1 = p1 & "NoBrowserOptions"
p2 = p2 & "NoBrowserOptions"

itemtype = "REG_DWORD"
mustboot = "You may need to log off and back on, or restart " & vbcr & "your
pc to effect the changes"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Internet Options setttings are now "
t = "Confirmation"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number

if errnum <> 0 then
'Create the registry key value for NoBrowserOptions with value 0
WSHShell.RegWrite p, 0, itemtype
WSHShell.RegWrite p1, 0, itemtype
WSHShell.RegWrite p2, 0, itemtype
End If

If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
WSHShell.RegWrite p1, n, itemtype
WSHShell.RegWrite p2, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
WSHShell.RegWrite p1, n, itemtype
WSHShell.RegWrite p1, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If


Esto lo que te hara es quitar las opciones de internet, por tanto antes
configuras no marcar una conexion nunca y ademas dejas ciega la red si
existiera, despues de realizar este ajuste aplicas esto al registro y
dificilmente navegara por internet.
Otra opcion no esta disponible, por que si deshabilitaramos completamente
IE, al tratarse del explorer interno se nos caeria el sistema.


Saludos

Antonio FD
MS Windows Embedded


"tiendademoviles.net" wrote in message
news:O3g$

tengo XP Home y una cuenta de invitado y otra de administrador.
me gustaria q con la cuenta de invitado no se tenga acceso a Internet.
como puedo hacerlo?
gracias

Hola
se oculta para ese usuario donde lo has ejecutado,
El administrador logea en su cuenta y ve todo


Saludos

Antonio FD
MS Windows Embedded


"tiendademoviles.net" wrote in message news:

de es manera solo podra acceder el administrador?
gracias


"Antonio" escribió en el mensaje
news:
Hola
Escribe el siguiente texto en el bloc de notas y guardalo con la extension
*.reg, despues clickea dos veces sobre y ya esta



Option Explicit

'Declare variables
Dim WSHShell, n, MyBox, p, p1, p2, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet
Explorer\Restrictions\"
p1 = "HKEY_USERS\.DEFAULT\Software\Policies\Microsoft\Internet
Explorer\Restrictions\"
p2 = "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Internet
Explorer\Restrictions\"
p = p & "NoBrowserOptions"
p1 = p1 & "NoBrowserOptions"
p2 = p2 & "NoBrowserOptions"

itemtype = "REG_DWORD"
mustboot = "You may need to log off and back on, or restart " & vbcr & "your
pc to effect the changes"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Internet Options setttings are now "
t = "Confirmation"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number

if errnum <> 0 then
'Create the registry key value for NoBrowserOptions with value 0
WSHShell.RegWrite p, 0, itemtype
WSHShell.RegWrite p1, 0, itemtype
WSHShell.RegWrite p2, 0, itemtype
End If

If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
WSHShell.RegWrite p1, n, itemtype
WSHShell.RegWrite p2, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
WSHShell.RegWrite p1, n, itemtype
WSHShell.RegWrite p1, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If


Esto lo que te hara es quitar las opciones de internet, por tanto antes
configuras no marcar una conexion nunca y ademas dejas ciega la red si
existiera, despues de realizar este ajuste aplicas esto al registro y
dificilmente navegara por internet.
Otra opcion no esta disponible, por que si deshabilitaramos completamente
IE, al tratarse del explorer interno se nos caeria el sistema.


Saludos

Antonio FD
MS Windows Embedded


"tiendademoviles.net" wrote in message
news:O3g$
> tengo XP Home y una cuenta de invitado y otra de administrador.
> me gustaria q con la cuenta de invitado no se tenga acceso a Internet.
> como puedo hacerlo?
> gracias
>
>