VBScript: Brincando com o Firewall do Windows XP

[Anonymous]

Fechar o Firewall do Windows XP

Este script permite desabilitar  por completo o firewall do Windows XP,

Code Select Expand

'''''''''''''''''''''''
' 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...

Code Select Expand

'''''''''''''''''''''''
' 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)





Fonte