ADICIONAR MEU PROGRAMA AO FIREWALL DO WINDOWS

Primeiro, como descobrir se o Firewall está ativo

strComputer = [Ô].[Ô]
Set oreg = GetObject([Ô]winmgmts:{impersonationLevel=impersonate}!\\[Ô] & strComputer & [Ô]oot\default:StdRegProv[Ô])
strKeyPath = [Ô]System\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile[Ô]
strValueName = [Ô]EnableFirewall[Ô]
oreg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwnumber
If dwnumber = 1 Then 
     Msgbox [Ô]Firewall do Windows ativo[Ô]
end IF

Se precisar adicionar portas no Firewall - Windows XP
Crie uma chave de registro do tipo String seguindo as informações do exemplo abaixo:
Chave: HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List[Ô]
Valor da sequencia: 3500:TCP (Essa chave criará uma exceção para a porta TCP 3500).
Dados do valor: 3500:TCP:*:Enabled:MinhaPorta (a exceção terá o nome de MinhaPorta

Se precisar adicionar portas no Firewall - Windows Vista ou Windows 7
Será necessário executar uma instrução no cmd
netsh advfirewall firewall add rule name=[Ô]MinhaPorta[Ô] protocol=TCP dir=in localport=3500 action=allow