none
Porta 80 RRS feed

  • Pergunta

  • Pessoal,

     

    Como posso bloquear via script a porta 80 de um Windows XP, para o usuário não poder navegar?

     

    É uma rede ponto-a-ponto ligada diretamente a um roteador conectado na Internet.

     

    Abraços

     

    Jairo

    segunda-feira, 26 de novembro de 2007 02:35

Respostas

  • Jairo,

     

    Tem esse script que fecha uma porta do Firewall do XP.

     

    Você pode rodar esse script na estação para fechar a porta 80.

     

    Set objFirewall = CreateObject("HNetCfg.FwMgr")
    Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
    Set colPorts = objPolicy.GloballyOpenPorts

    Set objPort = colPorts.Item(80,6)
    objPort.Enabled = FALSE

     

     

     

    Espero ter ajudado.

    Luiz Espínola
    MCSE+S , MCT , CCA , Security+ , IBM CSex , ITIL , CNA , SCSA
    Não esqueça de dar como "respondido" a mensagem, caso tenha ajudado.


     

    segunda-feira, 26 de novembro de 2007 14:30
  • Jairo,

     

    Você está correto sim, basta trocar de False para True !

     

    Espero ter ajudado.

     

    Não esqueça classificar a mensagem como "respondido", caso tenha ajudado.

     

    Luiz Espínola
    Microsoft MCSE+S , MCT , MCDBA , Comptia Security+  , IBM CSex

    ITIL Foundation ,Novell CNA ,SUN SCSA Solaris 9 ,Citrix CCA

    quinta-feira, 29 de novembro de 2007 02:38
  • Este está a funcionar.

     

    Set objFirewall = CreateObject("HNetCfg.FwMgr")
    Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
    Set objPort = CreateObject("HNetCfg.FwOpenPort")
    objPort.Port = 80
    objPort.Name = "HTTP Block"
    objPort.Enabled = FALSE
    Set colports = objPolicy.GloballyOpenports

    errReturn = colports.Add(objPort)

     

     

    Para varias portas podes fazer o seguinte:

     

    Crias um ficheiro firewallport.txt e metes lá dentro as portas que queres bloquear. 
    Exemplo:
    port_01
    port_02
    port_03

    ---------------------------------------------------------------------------

    '========================================
    'Author = João Sarrudo Dias
    'Date = 29/11/2007
    ' Windows Firewall Block Up Ports
    '========================================

    Dim ports

    set fso = CreateObject("Scripting.FileSystemObject")
    const ForREAding = 1
    set readfile = fso.opentextFile("firewallports.txt",ForREAding)
    Do until readfile.AtEndOfStream
    ports = readfile.readline

    Set objFirewall = CreateObject("HNetCfg.FwMgr")
    Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
    Set objPort = CreateObject("HNetCfg.FwOpenPort")
    objPort.Port = ports
    objPort.Name = ports
    objPort.Enabled = FALSE
    Set colports = objPolicy.GloballyOpenports

    errReturn = colports.Add(objPort)

    loop

    ---------------------------------------------------------------------------

    Para desbloquear as portas apenas tens de alterar esta linha objPort.Enabled = FALSE para objPort.Enabled = TRUE

     

    Um abraço,

    João Dias

    Não te esqueça classificar a mensagem como "respondido", caso tenha ajudado.

    quinta-feira, 29 de novembro de 2007 14:45

Todas as Respostas

  • Jairo,

     

    Tem esse script que fecha uma porta do Firewall do XP.

     

    Você pode rodar esse script na estação para fechar a porta 80.

     

    Set objFirewall = CreateObject("HNetCfg.FwMgr")
    Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
    Set colPorts = objPolicy.GloballyOpenPorts

    Set objPort = colPorts.Item(80,6)
    objPort.Enabled = FALSE

     

     

     

    Espero ter ajudado.

    Luiz Espínola
    MCSE+S , MCT , CCA , Security+ , IBM CSex , ITIL , CNA , SCSA
    Não esqueça de dar como "respondido" a mensagem, caso tenha ajudado.


     

    segunda-feira, 26 de novembro de 2007 14:30
  • Luiz,

     

    Ótima dica. Obrigado

     

    E uma perguntinha.

     

    Caso eu queira voltar é só trocar o FALSE para TRUE ???

     

    Abraços

     

    Jairo

    quinta-feira, 29 de novembro de 2007 02:15
  • Jairo,

     

    Você está correto sim, basta trocar de False para True !

     

    Espero ter ajudado.

     

    Não esqueça classificar a mensagem como "respondido", caso tenha ajudado.

     

    Luiz Espínola
    Microsoft MCSE+S , MCT , MCDBA , Comptia Security+  , IBM CSex

    ITIL Foundation ,Novell CNA ,SUN SCSA Solaris 9 ,Citrix CCA

    quinta-feira, 29 de novembro de 2007 02:38
  • Este está a funcionar.

     

    Set objFirewall = CreateObject("HNetCfg.FwMgr")
    Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
    Set objPort = CreateObject("HNetCfg.FwOpenPort")
    objPort.Port = 80
    objPort.Name = "HTTP Block"
    objPort.Enabled = FALSE
    Set colports = objPolicy.GloballyOpenports

    errReturn = colports.Add(objPort)

     

     

    Para varias portas podes fazer o seguinte:

     

    Crias um ficheiro firewallport.txt e metes lá dentro as portas que queres bloquear. 
    Exemplo:
    port_01
    port_02
    port_03

    ---------------------------------------------------------------------------

    '========================================
    'Author = João Sarrudo Dias
    'Date = 29/11/2007
    ' Windows Firewall Block Up Ports
    '========================================

    Dim ports

    set fso = CreateObject("Scripting.FileSystemObject")
    const ForREAding = 1
    set readfile = fso.opentextFile("firewallports.txt",ForREAding)
    Do until readfile.AtEndOfStream
    ports = readfile.readline

    Set objFirewall = CreateObject("HNetCfg.FwMgr")
    Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
    Set objPort = CreateObject("HNetCfg.FwOpenPort")
    objPort.Port = ports
    objPort.Name = ports
    objPort.Enabled = FALSE
    Set colports = objPolicy.GloballyOpenports

    errReturn = colports.Add(objPort)

    loop

    ---------------------------------------------------------------------------

    Para desbloquear as portas apenas tens de alterar esta linha objPort.Enabled = FALSE para objPort.Enabled = TRUE

     

    Um abraço,

    João Dias

    Não te esqueça classificar a mensagem como "respondido", caso tenha ajudado.

    quinta-feira, 29 de novembro de 2007 14:45
  • João,

     

    Muito obrigado também por suas dicas.

     

    Abraços

     

    Jairo

    sexta-feira, 30 de novembro de 2007 02:56