Por si os interesa hacer algo para el firewall el codigo lo saque de una pagina de scripts.
http://www.activexperts.com/activmon...ndowsfirewall/
NOTA:Erbuson funciona perfecto , pero si pones la propiedad sorted del listbox
en true para ordenarlos, no los marca.Pero a mi me vale asi.
Cita: Private Sub Command1_Click()
List1.Clear
Set OBJFIREWALL = CreateObject("HNetCfg.FwMgr")
Set objPolicy = OBJFIREWALL.LocalPolicy.CurrentProfile
Set colApplications = objPolicy.AuthorizedApplications
Set colServices = objPolicy.Services
Set colPorts = objPolicy.GloballyOpenPorts
For Each objApplication In colApplications
List1.AddItem objApplication.Name
List1.Selected(List1.ListCount - 1) = objApplication.Enabled
Next
For Each objService In colServices
List1.AddItem objService.Name
List1.Selected(List1.ListCount - 1) = objService.Enabled
Next
For Each objPort In colPorts
List1.AddItem objPort.Name
List1.Selected(List1.ListCount - 1) = objPort.Enabled
Next
End Sub
GRACIAS