Блокировка UDP-порта без брандмауэра с использованием VBScript

Question

Я тестирую приложение, которое связывается с сервером через порт UDP, и мне нужно заблокировать этот порт, чтобы приложение могло его обработать.
Проблемы:
1. Это должно быть сделано в автоматическом тесте (который контролируется VBScripts).
2. Это должно быть сделано в Windows XP, без использования брандмауэра.

Я пробовал это:

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set colPorts = objPolicy.GloballyOpenPorts

Set objPort = colPorts.Item(9999,6)
objPort.Enabled = FALSE

но это не сработало.

Answer 1

Это может представлять интерес: Как заблокировать определенные сетевые протоколы и порты с помощью IPSec http://support.microsoft.com/kb/813878