Listing 2: ToggleGroup.vbs
Option Explicit

Const NET_FW_PROFILE2_ALL = 2147483647

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

if TRUE = fwPolicy2.IsRuleGroupEnabled(NET_FW_PROFILE2_ALL, _
 "@firewallapi.dll,-23255") then
 WScript.Echo "Disabling test rule group ..."
 fwPolicy2.EnableRuleGroup NET_FW_PROFILE2_ALL, _
 "@firewallapi.dll,-23255", FALSE
else
 WScript.Echo "Enabling test rule group ..."
 fwPolicy2.EnableRuleGroup NET_FW_PROFILE2_ALL, _
 "@firewallapi.dll,-23255", TRUE
end if