Forumitbr.com.br

Enviado: **04 Jul 2013 07:10**

Segue alguns exemplos para manipulação do firewall do windows. Lembrando que em ambientes com Windows Server todas estas opções podem ser feitas através de GPO. Samba4 também possui todos os recursos. O uso dos scripts seria voltado para máquinas fora do dominio ou auxilio na automação de alguma tarefa.

Liberando uma aplicação no perfil padrão

Código: Selecionar todos

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy
Set objProfile = objPolicy.GetProfileByType(1)

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Real VNC 4"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName = "C:\Program Files\RealVNC\winvnc4.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objProfile.AuthorizedApplications
colApplications.Add(objApplication)

Removendo uma aplicação liberada

Código: Selecionar todos

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

Set colApplications = objPolicy.AuthorizedApplications

errReturn = colApplications.Remove("c:\windows\system32\freecell.exe")

Criando uma nova porta

Código: Selecionar todos

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

Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 5900
objPort.Name = "Ultra VNC 4"
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts

errReturn = colPorts.Add(objPort)

Habilitando administração remota

Código: Selecionar todos

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

Set objAdminSettings = objPolicy.RemoteAdminSettings
objAdminSettings.Enabled = TRUE

Desabilitando administração remota

Código: Selecionar todos

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

Set objAdminSettings = objPolicy.RemoteAdminSettings
objAdminSettings.Enabled = FALSE

Habilitando compartilhamento de arquivos e impressoras

Código: Selecionar todos

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

Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE

Desabilitando o Firewall

Código: Selecionar todos

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

objPolicy.FirewallEnabled = FALSE

Habilitando o Firewall

Código: Selecionar todos

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

objPolicy.FirewallEnabled = TRUE

Restaurando os padrões

Código: Selecionar todos

Set objFirewall = CreateObject("HNetCfg.FwMgr")
objFirewall.RestoreDefaults()

Modificando as propriedades

Código: Selecionar todos

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

objPolicy.ExceptionsNotAllowed = TRUE
objPolicy.NotificationsDisabled = TRUE
objPolicy.UnicastResponsestoMulticastBroadcastDisabled = TRUE

Alterando uma porta fechada para aberta

Código: Selecionar todos

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

Set objPort = colPorts.Item(5900,6)
objPort.Enabled = TRUE

Lembrando de mais alguns, vou postando por aqui

Forumitbr.com.br

[Script] Manipulando o firewall do windows com VBScript

[Script] Manipulando o firewall do windows com VBScript