не знаю правельно ли я думаю, но знаю вот на пример вот этот скриптик:

netsh firewall add portopening protocol=TCP port=445 name"(TCP 445)" mode=ENABLE scope=SUBNET profile=DOMAIN

для бат ! есть и для vbs