Usuário com melhor resposta
Bloquear mudar rede Wireless.

Pergunta
-
Preciso de ajuda para bloquear o acesso dos usuários aqui da rede wi-fi nos pcs, como trabalho em uma auto escola, e temos mais de um ssid, eles ficam tentando conectar em outros ssids e a maquina não imprime e nem acesa a rede por eles conectarem em outras redes sem fio, eles mudam de rede para entrar em sites que estão bloqueados, eu tenho um servidor linux com varios bloqueios de sites, então eles mudam de rede para burlar o bloqueio, gostaria de uma solução para isso, ja revirei o GPEDIT e não achei nada, se alguem puder ajudar, eu agradeço, usamos o windows 7.
Respostas
-
Pessoal eu mesmo resolvi.
Criei um arquivo VBS, contendo:
' =================================================================================================
' Script Bloqueios de rede.
' Desenvolviso por José Rodrigues Filho.
' =================================================================================================
'Bloqueios------------------------------------------------------------------------------------------------------------------------------------
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
'Desativa o icone de descoberta de redes sem fio.
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\HideSCANetwork",1 ,"REG_DWORD"
'Complemento que desativa do painel de controle o icone que gerencia a rede "Central de Rede e Compartilhamento"
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowCpl",1 ,"REG_DWORD"
'Desativa o icone "Central de Rede e Compartilhamento" do painel de controle.
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowCpl\1", "@%SystemRoot%\System32\netcenter.dll,-1", "REG_SZ"
'Desativa o acesso ao Registro (cuidado)
'Entrar no gpedit.msc e desativar a regra "Impedir acesso a ferramentas de edição de Registro", para conseguir acesso ao regedit novamente, seguindo esses passos ele remove a chave adicionada.
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",1 ,"REG_DWORD"
'Desativa acesso ao promt, Cuidado, (2) Não desativa o processamento do script do prompt de comando, recomendado (1) Desativa
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\DisableCMD",2 ,"REG_DWORD"
'Desativa o acesso ao gpedit.msc
set sh = CreateObject("WScript.Shell")
sh.run "cmd /c REN %SYSTEMROOT%\system32\gpedit.msc desativado.BKP", 0
Set WSHShell = nothing
'-----------------------------------------------------------------------------------------------------------------------------------Bloqueios-
'MENSAGEM DE TERMINO--------------------------------------------------------------------------------------------------------------------------
Set objUser = WScript.CreateObject("WScript.Network")
wuser=objUser.UserName
MsgBox ("Obrigado "+Wuser+", bloqueio efetuado com sucesso, aguarde a reinicializacao")
'WScript.Quit
'-------------------------------------------------------------------------------------------------------------------------MENSAGEM DE TERMINO-
'-Reinicialização-----------------------------------------------------------------------------------------------------------------------------
WScript.Sleep 4000
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Reboot()
Next
'-----------------------------------------------------------------------------------------------------------------------------Reinicialização-- Marcado como Resposta J.Rodrigues quinta-feira, 13 de fevereiro de 2014 11:21
Todas as Respostas
-
-
Amigo, eu não tenho a senha dos ssid, são redes abertas proximas ao local, não tem como eu controlar isso, e são varios sites bloqueados, uma lista imensa, e outra eles entram na outra rede e depois esquecem de voltar e não imprime nem acessa o troca de arquivos da rede.
-
Bom,
se a lista de sites é muito grande há um arquivo chamado Host em que você efetua o bloqueio de sites na máquina local.
entre no executar e digite : notepad c:\windows\system32\drivers\etc\hosts
irá aparecer isso:
coloque o site a ser bloqueado em baixo de local host e repita o ip 127.0.0.1, exemplo:
127.0.0.1 facebook.com
127.0.0.1 youtube.com
127.0.0.1 google.com
ele é ótimo, mas você gasta muito tempo nele, pois se o site tiver em outra lingua tem que colocar também, por exemplo facebook.com, facebook.com.br, fb.com, fb.com.br, etc.
Lembrando que tem que estar como administrador para fazer isso, copie o que for feito, salve e faça ou cole nos outros computadores.
Espero ter ajudado,
se for útil, marque como resposta.
-
Não resolve, em outra rede eles não conseguem imprimir, nem acesso aos compartilhamentos de rede, dai me ligam e falam que parou de imprimir, e na verdade estao em outra rede, mesmo assim obrigado, estou atras de uma maneira de impedir trocar a rede mesmo.
-
Neste caso, te darei duas opções que possam lhe ajudar.
1ª Veja a Range da rede wifi aberta em que eles se conectam exemplo : 192.168.0.1, e deixe a da sua rede diferente, essa alteração você pode fazer no roteador ou em quem distribui os ips ai na sua rede, depois deixe as máquinas com IP Fixo, e quando eles tentarem logar não conseguirão conectar na outra rede.
2ª Configure um servidor DNS, e deixe a parte DNS na plac wireless fixo com o ip que for cofigurado, quando eles entrarem na outra rede também não conseguirão conexão com a internet e iriam acabar voltando para a rede de vocês.
Poste os resultados.
-
Pessoal eu mesmo resolvi.
Criei um arquivo VBS, contendo:
' =================================================================================================
' Script Bloqueios de rede.
' Desenvolviso por José Rodrigues Filho.
' =================================================================================================
'Bloqueios------------------------------------------------------------------------------------------------------------------------------------
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
'Desativa o icone de descoberta de redes sem fio.
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\HideSCANetwork",1 ,"REG_DWORD"
'Complemento que desativa do painel de controle o icone que gerencia a rede "Central de Rede e Compartilhamento"
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowCpl",1 ,"REG_DWORD"
'Desativa o icone "Central de Rede e Compartilhamento" do painel de controle.
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowCpl\1", "@%SystemRoot%\System32\netcenter.dll,-1", "REG_SZ"
'Desativa o acesso ao Registro (cuidado)
'Entrar no gpedit.msc e desativar a regra "Impedir acesso a ferramentas de edição de Registro", para conseguir acesso ao regedit novamente, seguindo esses passos ele remove a chave adicionada.
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",1 ,"REG_DWORD"
'Desativa acesso ao promt, Cuidado, (2) Não desativa o processamento do script do prompt de comando, recomendado (1) Desativa
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\DisableCMD",2 ,"REG_DWORD"
'Desativa o acesso ao gpedit.msc
set sh = CreateObject("WScript.Shell")
sh.run "cmd /c REN %SYSTEMROOT%\system32\gpedit.msc desativado.BKP", 0
Set WSHShell = nothing
'-----------------------------------------------------------------------------------------------------------------------------------Bloqueios-
'MENSAGEM DE TERMINO--------------------------------------------------------------------------------------------------------------------------
Set objUser = WScript.CreateObject("WScript.Network")
wuser=objUser.UserName
MsgBox ("Obrigado "+Wuser+", bloqueio efetuado com sucesso, aguarde a reinicializacao")
'WScript.Quit
'-------------------------------------------------------------------------------------------------------------------------MENSAGEM DE TERMINO-
'-Reinicialização-----------------------------------------------------------------------------------------------------------------------------
WScript.Sleep 4000
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Reboot()
Next
'-----------------------------------------------------------------------------------------------------------------------------Reinicialização-- Marcado como Resposta J.Rodrigues quinta-feira, 13 de fevereiro de 2014 11:21
-
-
sei que ja faz tempo mas caso alguem ainda precise segue uma solucao alternativa
libera acesso a rede wifi
netsh wlan add filter permission=allow ssid="xxxx" networktype=infrastructure
bloqueia todas as redes wifi - exceto as liberadas
netsh wlan add filter permission=denyall networktype=infrastructure
remove o bloqueio de redes wifi
netsh wlan delete filter permission=denyall networktype=infrastructure
-
-
sei que ja faz tempo mas caso alguem ainda precise segue uma solucao alternativa
libera acesso a rede wifi
netsh wlan add filter permission=allow ssid="xxxx" networktype=infrastructure
bloqueia todas as redes wifi - exceto as liberadas
netsh wlan add filter permission=denyall networktype=infrastructure
remove o bloqueio de redes wifi
netsh wlan delete filter permission=denyall networktype=infrastructure
-