Listing 1: AddRule.vbs  
Option Explicit

' Declare variables
Dim errornum

' Create the firewall policy object
Dim fwPolicy2
Set fwPolicy2 = CreateObject("HNetCfg.FwPolicy2")

' Create a new rule
Dim fwRule
Set fwRule = CreateObject("HNetCfg.FwRule")

fwRule.Name = "stcpserver"
fwRule.ApplicationName = _
 "%PROGRAMFILES%\Secure TCP Server\stcpserver.exe"
fwRule.RemoteAddresses = "LocalSubnet"
fwRule.Protocol = 6 'TCP
fwRule.LocalPorts = "27015"
fwRule.Grouping = "@firewallapi.dll,-23255" 'None
fwRule.Enabled = TRUE

On Error Resume Next
errornum = 0
fwPolicy2.Rules.Add fwRule
errornum = Err.Number
if errornum <> 0 then _
 Wscript.Echo("Adding rule failed with: " & errornum)