Conexion a internet no para todos los usuarios

After serious thinking Neurus wrote :

Se puede lograr ser que unos usuarios en un mismo equipo con xp prof puedan
conectarse a internet
y otros no,? alguien pueda darme una pista como lograrlo?

Gracias adelantadas

Revise su fecha.

Ya lo solucione gracias
"scchummi" escribió en el mensaje
news:

After serious thinking Neurus wrote :
> Se puede lograr ser que unos usuarios en un mismo equipo con xp prof

puedan

> conectarse a internet
> y otros no,? alguien pueda darme una pista como lograrlo?
>
> Gracias adelantadas

Revise su fecha.

Hola,
Vamos a intentarlo creando una conexion a acceso telefonico a redes en este usuario, en su sesion abierta nos vamos a panel de control, opciones de internet y seleccionamos no marcar una conexion nunca,

Ahora solo nos queda creanos un simple script para ocultar el icono opciones de intenet y lo ejecutamos en esta sesion. Este usuario ya no vera opciones de intenet y no podra cambiar esta condicion.
Saludos

Antonio FD
MS Windows Embedded

"Neurus" escribió en el mensaje news:

Se puede lograr ser que unos usuarios en un mismo equipo con xp prof puedan
conectarse a internet
y otros no,? alguien pueda darme una pista como lograrlo?

Gracias adelantadas

Hola de nuevo,
Si tiene banda ancha y usa tarjetas de red seria aconsejable ocultarle el entorno de red
Copiar estos datos en el bloc de texto, guardar con *.vbs y aplicar en la sesion correspondiente

'INICIO
Option Explicit
On Error Resume Next
Dim WSHShell, itemtype, n, MyBox, p, p1, p2, t, mustboot, errnum, vers
Dim jobfunc
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
p1 = "NoNetHood"
p2 = p & p1
itemtype = "REG_DWORD"
t = "Toggle Folder Options"
mustboot = "Log off and back on, or restart your PC to" & vbCR & "effect the changes"
jobfunc = "Network Neighborhood icon is now "
t = "Enable/Disable Folder Options"
Err.Clear
n = WSHShell.RegRead (p2)
errnum = Err.Number
if errnum <> 0 then
'Create the registry key value for NoNetHood with value 0
WSHShell.RegWrite p2, 0, itemtype
End If
If n = 0 Then
n = 1
WSHShell.RegWrite p2, n, itemtype
Mybox = MsgBox(jobfunc & "DISABLED" & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
Mybox = MsgBox(jobfunc & "ENABLED" & vbCR & mustboot, 4096, t)
WSHShell.RegWrite p2, n, itemtype
End If
'FINAL


Saludos

Antonio FD
MS Windows Embedded

"Antonio FD" escribió en el mensaje news:%23%
Hola,
Vamos a intentarlo creando una conexion a acceso telefonico a redes en este usuario, en su sesion abierta nos vamos a panel de control, opciones de internet y seleccionamos no marcar una conexion nunca,

Ahora solo nos queda creanos un simple script para ocultar el icono opciones de intenet y lo ejecutamos en esta sesion. Este usuario ya no vera opciones de intenet y no podra cambiar esta condicion.
Saludos

Antonio FD
MS Windows Embedded

"Neurus" escribió en el mensaje news:

Se puede lograr ser que unos usuarios en un mismo equipo con xp prof puedan
conectarse a internet
y otros no,? alguien pueda darme una pista como lograrlo?

Gracias adelantadas

Olvide para las opciones de internet explorer, con este simple script ocultamos las opcione sde intenet explorer y evitamos que marquen conexion alguna.

'INICIO
Option Explicit
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
'FINAL

Saludos

Antonio FD
MS Windows Embedded

"Antonio FD" escribió en el mensaje news:
Hola de nuevo,
Si tiene banda ancha y usa tarjetas de red seria aconsejable ocultarle el entorno de red
Copiar estos datos en el bloc de texto, guardar con *.vbs y aplicar en la sesion correspondiente

'INICIO
Option Explicit
On Error Resume Next
Dim WSHShell, itemtype, n, MyBox, p, p1, p2, t, mustboot, errnum, vers
Dim jobfunc
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
p1 = "NoNetHood"
p2 = p & p1
itemtype = "REG_DWORD"
t = "Toggle Folder Options"
mustboot = "Log off and back on, or restart your PC to" & vbCR & "effect the changes"
jobfunc = "Network Neighborhood icon is now "
t = "Enable/Disable Folder Options"
Err.Clear
n = WSHShell.RegRead (p2)
errnum = Err.Number
if errnum <> 0 then
'Create the registry key value for NoNetHood with value 0
WSHShell.RegWrite p2, 0, itemtype
End If
If n = 0 Then
n = 1
WSHShell.RegWrite p2, n, itemtype
Mybox = MsgBox(jobfunc & "DISABLED" & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
Mybox = MsgBox(jobfunc & "ENABLED" & vbCR & mustboot, 4096, t)
WSHShell.RegWrite p2, n, itemtype
End If
'FINAL


Saludos

Antonio FD
MS Windows Embedded

"Antonio FD" escribió en el mensaje news:%23%
Hola,
Vamos a intentarlo creando una conexion a acceso telefonico a redes en este usuario, en su sesion abierta nos vamos a panel de control, opciones de internet y seleccionamos no marcar una conexion nunca,

Ahora solo nos queda creanos un simple script para ocultar el icono opciones de intenet y lo ejecutamos en esta sesion. Este usuario ya no vera opciones de intenet y no podra cambiar esta condicion.
Saludos

Antonio FD
MS Windows Embedded

"Neurus" escribió en el mensaje news:

Se puede lograr ser que unos usuarios en un mismo equipo con xp prof puedan
conectarse a internet
y otros no,? alguien pueda darme una pista como lograrlo?

Gracias adelantadas