Añadir excepción al firewall del sp2

[LaN]

Pues ésa es mi pregunta. ¿Es posible añadir una excepción o simplemente desactivar el firewall de windows en visual basic?
Algo asi como la opción que tiene el emule de abrir puertos en firewall interno de windows xp

Gracias de antemano

[yeikos]

Para detener el servicio del Firewall:

Código [Seleccionar] Expandir

Shell "cmd.exe /c net stop SharedAccess"

Para añadir una excepción al Firewall:

set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\C:\chat.exe","C:\chat.exe:*:Enabled:chat"

El problema del segundo código es que confunde la contrabarra del directorio con una separación para crear una subclave, la solución seria usar las APIs o solucionar este pequeño problema.

[LaN]

Entiendo, pensaré en ello, y si no lo consigo posteo aki mismo.
Gracias, es lo que andaba buscando