none
Bloquear mudar rede Wireless. RRS feed

  • 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.
    domingo, 9 de fevereiro de 2014 23:14

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
    quinta-feira, 13 de fevereiro de 2014 11:20

Todas as Respostas

  • Bom, 

    se você não quer que eles entrem nas outras redes mude a senha dos ssid.

    se você só quer bloquear alguns sites vá em cada estação e use um programa chamado inter app.

    se for útil marque como resposta.

    segunda-feira, 10 de fevereiro de 2014 00:29
  • 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.
    segunda-feira, 10 de fevereiro de 2014 00:40
  • 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.

    segunda-feira, 10 de fevereiro de 2014 02:04
  • 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.
    segunda-feira, 10 de fevereiro de 2014 02:22
  • 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.

    segunda-feira, 10 de fevereiro de 2014 17:00
  • 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
    quinta-feira, 13 de fevereiro de 2014 11:20
  • Viva J. Rodrigues.

    Como e onde posso carregar este script?

    Que tipo de ficheiro é?

    Obrigado.

    sexta-feira, 27 de fevereiro de 2015 12:50
  • 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


    sexta-feira, 24 de março de 2017 17:01
  • Exatamente o que precisava, obrigado!!
    sábado, 16 de fevereiro de 2019 13:03
  • 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


    Loguei e votei só pra ti agradecer amigo. Vou testar aqui, mas pelo que vi nos códigos deve funcionar 100%. Muito obrigado.
    quinta-feira, 23 de julho de 2020 13:58
  • Muito Bom!!!! PArabens!
    sexta-feira, 8 de janeiro de 2021 19:13