Para detener el servicio del Firewall:
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.