Usuário com melhor resposta
Porta 80

Pergunta
-
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.GloballyOpenPortsSet objPort = colPorts.Item(80,6)
objPort.Enabled = FALSEEspero 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.
-
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 CSexITIL Foundation ,Novell CNA ,SUN SCSA Solaris 9 ,Citrix CCA
-
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.GloballyOpenportserrReturn = 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.readlineSet 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.GloballyOpenportserrReturn = 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.
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.GloballyOpenPortsSet objPort = colPorts.Item(80,6)
objPort.Enabled = FALSEEspero 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.
-
-
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 CSexITIL Foundation ,Novell CNA ,SUN SCSA Solaris 9 ,Citrix CCA
-
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.GloballyOpenportserrReturn = 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.readlineSet 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.GloballyOpenportserrReturn = 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.
-